Move data into empty rows when i delete old data

Hi assuming you have data in column A and the blanks appear here you can use this:

Sub DeleteBlankRows()
Dim Rng As String
Dim Rng1, MyCell As Range
Rng = Range("A65536").End(xlUp).Address''''finds last row
Set Rng1 = Range("A1:" & Rng)'''sets the range from A1 to the last used row in A
With Rng1
    .AutoFilter Field:=1, Criteria1:="=", Operator:=xlAnd
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    
End With

End Sub

Regards,
Simon