Code verkorten

Private Sub CommandButton1_Click()
 Application.ScreenUpdating = False
 If [B2] = "" Then
 MsgBox ("Er is geen datum ingevuld")
 Exit Sub
 Else
 End If
 Continue = True
 
    With Sheets("Raportage").Range("A65536").End(xlUp)
        [COLOR="#FF0000"].Offset(1, 6).Value = Sheets("Invoertabel").Range("C13").Value
        .Offset(1, 7).Value = Sheets("Invoertabel").Range("D13").Value
        .Offset(1, 8).Value = Sheets("Invoertabel").Range("E13").Value
        .Offset(1, 9).Value = Sheets("Invoertabel").Range("F13").Value
        .Offset(1, 10).Value = Sheets("Invoertabel").Range("G13").Value
        .Offset(1, 11).Value = Sheets("Invoertabel").Range("H13").Value
        .Offset(1, 12).Value = Sheets("Invoertabel").Range("I13").Value
        .Offset(1, 13).Value = Sheets("Invoertabel").Range("J13").Value[/COLOR]   
   End With
    MsgBox "Gegevens gekopieerd. "
    [B2,B4,C13:J19].ClearContents
End Sub

Private Sub CommandButton1_Click()
 Application.ScreenUpdating = False
 If [B2] = "" Then
 MsgBox ("Er is geen datum ingevuld")
 Exit Sub
 Else
 End If
 Continue = True
 
    With Sheets("Raportage").Range("A65536").End(xlUp)
       For rij = 6 To 13
        .Offset(1, rij).Value = Sheets("Invoertabel").Cells(13, rij - 3).Value
       Next
   End With
    MsgBox "Gegevens gekopieerd. "
    [B2,B4,C13:J19].ClearContents
End Sub

Private Sub CommandButton1_Click()
   With sheets("Rapportage")  
     If .Range("B2") <> "" Then
       .cells(rows.count,1).End(xlUp).offset(1,5).resize(,8)=Sheets("Invoertabel").Range("C13").resize(,8).Value
       c00=" "
       .Range("B2,B4,C13:J19").ClearContents
     end if
   End With

   MsgBox iif(isempty(c00),"Er is geen datum ingevoerd","Gegevens gekopieerd")
End Sub

Private Sub CommandButton1_Click()
 Application.ScreenUpdating = False
 If [B2] = "" Then
 MsgBox ("Er is geen datum ingevuld")
 Exit Sub
 Else
 End If
 Continue = True
 With Sheets("Raportage")
     lrow = .Range("A65536").End(xlUp).Row
       .Range("A" & lrow & ":M" & lrow).Copy
         Sheets("Invoertabel").Cells(13, 3).PasteSpecial Paste:=xlPasteAll, Transpose:=True
 End With
    MsgBox "Gegevens gekopieerd. "
    [B2,B4,C13:J19].ClearContents
End Sub