Excelformular ark1 ... data flyttes over på ark 2

Sub test()
Worksheets(1).Range("A2:C2").Copy _
    Destination:=Worksheets(2).Range("a65536").End(xlUp).Offset(1, 0)
End Sub

Sub test()
Worksheets(1).Range("A2:C2").Copy _
    Destination:=Worksheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Worksheets(1).Range("A2:C2").ClearContents
End Sub

Sub GemOplysninger()
'Kontrol
If Worksheets(1).Range("E8") = "" Then
Worksheets(1).Range("E8").Activate
GoTo besked
End If
If Worksheets(1).Range("E13") = "" Then
Worksheets(1).Range("E13").Activate
GoTo besked
End If
If Worksheets(1).Range("E15") = "" Then
Worksheets(1).Range("E15").Activate
GoTo besked
End If
If Worksheets(1).Range("E17") = "" Then
Worksheets(1).Range("E17").Activate
besked:
MsgBox "Udfyld manglende data !!!"
Exit Sub
End If

Application.ScreenUpdating = False
'Flytter data
    Worksheets(1).Range("E8").Copy
    Worksheets(2).Range("B65536").End(xlUp).Offset(1, 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
    Worksheets(1).Range("E13").Copy
    Worksheets(2).Range("B65536").End(xlUp).Offset(1, 2).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
    Worksheets(1).Range("E15").Copy
    Worksheets(2).Range("B65536").End(xlUp).Offset(1, 3).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
    Worksheets(1).Range("E17").Copy
    Worksheets(2).Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
'Sletter felter
Worksheets(1).Range("E8").ClearContents
Worksheets(1).Range("E13").ClearContents
Worksheets(1).Range("E15").ClearContents
Worksheets(1).Range("E17").ClearContents

Application.ScreenUpdating = True
End Sub