Excel - Copiar datos de una celdas a otras hoja

Sub copia1()

Hoja2.Range("A1").Value = Hoja1.Range("A1").Value

End Sub

Sub copia2()

Hoja1.Range("A2").Copy Hoja2.Range("A2")

End Sub

Sub test()

Dim row&

row = Range("A" & Cells.Rows.Count).End(xlUp).row

If Not (row = 1 And VBA.Trim(Range("A1").Value) = "") Then row = row + 1

Range("A" & row).Value = "nuevo_valor"

End Sub

Sub test()

Dim row&

Dim wsSrc As Worksheet, wsDst As Worksheet

Set wsDst = Sheets("hoja3")

Set wsSrc = Sheets("hoja1")

row = wsDst.Range("A" & Cells.Rows.Count).End(xlUp).row

If Not (row = 1 And VBA.Trim(wsDst.Range("A1").Value) = "") Then row = row + 1

With wsDst

 .Range("A" & row).Value = wsSrc.Range("B2").Value

 .Range("B" & row).Value = wsSrc.Range("B4").Value

 .Range("C" & row).Value = wsSrc.Range("D4").Value

 .Range("D" & row).Value = wsSrc.Range("A6").Value

 .Range("E" & row).Value = wsSrc.Range("B6").Value

 .Range("F" & row).Value = wsSrc.Range("A8").Value

 .Range("G" & row).Value = wsSrc.Range("C8").Value

End With

End Sub