Hello,

I am trying to create a script to delete blank rows from the active column in which the amount of rows can vary.

I've only been able to delete rows from Col A with a specified amount of rows:

Sub DeleteRows()
FirstRow = 1
LastRow = 1200

For r = LastRow To FirstRow Step -1
If Range("A" & r).Value = "" Then
Rows(r).EntireRow.Delete
End If
Next

End Sub

Thank you in advance,
Noobtron