VBA lege Cel kolom A vinden, regel verplaatsen naar boven

Dim LastRow As Long
    LastRow = Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row

Sub cobbe()
Dim cl As Range
ActiveWorkbook.Sheets(1).UsedRange.SpecialCells(xlCellTypeBlanks).Delete
End Sub

Sub cobbe()
Dim cl As Range
For Each cl In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If cl = "" Then
  cl.Offset(-1, 5).Resize(, 3).Delete Shift:=xlUp
  cl.Resize(, 5).Delete Shift:=xlUp
 End If
Next
End Sub

Sub dotchie()
Dim i As Long
Dim toprow As Long
Application.ScreenUpdating = False
toprow = 1
For i = toprow To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "" Then
    Cells(i, 6).Copy Cells(i, 6).Offset(-1)
    Cells(i, 7).Copy Cells(i, 7).Offset(-1)
    Cells(i, 8).Copy Cells(i, 8).Offset(-1)
    Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub herstel()
aantal = ActiveSheet.UsedRange.Rows.Count
For t = 1 To aantal
    If [A1].Offset(t) = "" Then
        If [F1].Offset(t) <> "" Then
            Range([F1].Offset(t - 1), [H1].Offset(t - 1)) = Range([F1].Offset(t), [H1].Offset(t)).Value
            [F1].Offset(t).EntireRow.Delete
            aantal = aantal - 1
        End If
    End If
Next t
End Sub

Sub VenA()
With Blad1
  .Columns(6).Resize(, 3).SpecialCells(2).Offset(-1).Delete
  .Columns(1).SpecialCells(4).EntireRow.Delete
End With
End Sub