VBA: wenn Datum eingetragen - übertragen

Private Sub CommandButton4_Click()
CommandButton4.Caption = "als bezahlt ausbuchen"
Dim rngC As Range, rngA As Range
For Each rngC In Range("h8", Cells(Rows.Count, 8).End(xlUp))
If rngC.Row > 1 And UCase(rngC.Value) = "JA" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Rechnungenbezahlt")            ' Zieltabelle
rngA.EntireRow.Copy .Cells(.Rows.Count, 8).End(xlUp).Offset(1, -7)
rngA.EntireRow.Delete
End With
End If
End Sub