Macro que mueva la celda hacia abajo y la modifique

Hola,
Prueba este código:
Dim w, w2 As Worksheet
Set w = Sheets("Hoja1")
Set w2 = Sheets("Hoja2")
If w2.Range("A1") = "" Then
      w2.Range("A1") = w.Range("A1")
Else
      If w2.Range("A1").End(xlDown).Row = 65536 Then
            w2.Range("A2") = w.Range("A1")
      Else
             w2.Range("A" & Range("A1").End(xlDown).Row + 1) = w.Range("A1")
      End If
End If
 
Revisa el código y si tienes alguna duda me avisas.
 
Saludos, Tavopz

Hola de nuevo.
muchas gracias por tu respuesta me fue muy util, y perdon por molestarte otra vez pero tu sabes alguna codificacion con la cual a la hoja de excel le pueda poner usuarios y contraseña?, y otra me gustaria hacer un cuadro de dialogo que cuando no capturen nada en un chekbox aparesca ese mensaje de error.
 
Gracias por tu atención

Bueno muchas gracias, nos vemos