Automatically transfer data from one sheet to another

Hello,
I have never done anything like this and i just watched a video that got me the first two correct columns in the second sheet but i am unable to get the others.
I have 5 rows in sheet 1 that i need to transfer into 5 rows on sheet2 can you help to see what to type in the bottom half!
Thanks


Private Sub CommandButton1_Click()
Dim Nombre As String, Apellido As String, FechadeNacimiento As String, Problemadesaludocambios As Integer, Pagados As String, Total As String
Worksheets("sheet1").Select
Apellido = Range("C2")
Nombre = Range("C3")
FechadeNacimiento = Range("C4")
Problemasdesaludocambios = Range("C5")
Pagado = Range("C7")
Total = Range("C8")
Worksheets("form").Select
Worksheets("form").Range("B4").Select
If Worksheets("form").Range("B4").Offset(1, 0) <> "" Then
Worksheets("form").Range("B4").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Apellido
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Nombre
ActiveCell.Offset().Select
ActiveCell.Value = FechadeNacimiento
ActiveCell.Offset().Select
ActiveCell.Value = Problemasdesalud0cambios
ActiveCell.Offset().Select
ActiveCell.Value = Pagado
ActiveCell.Offset().Select
ActiveCell.Value = Total
Worksheets("sheet1").Select
Worksheets("sheet1").Range("C2:C8").ClearContents


End Sub