Deleting empty rows from ACTIVE column

[noobtron]

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

[AB33]

Where is the active column? Which Column?

[noobtron]

Sorry for not clarifying. I am trying to make the active column where ever the selected active cell is. So if I am in C2 and I run the macro, I would like to have the active column be C. If I am in D4 and I run the macro, I'd like the active column to be column D. Is this possible?? Thank you in advance for your help.