defing a range with a varying size...

Private Sub Worksheet_Change(ByVal Target As Range)

[FONT=arial][COLOR=#007F00]Dim rng As Range

'Store blank cells inside a variable
  On Error GoTo NoBlanksFound
    Set rng = Range("A1:A15").SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0

'Delete blank cells and shift upward
  rng.Rows.Delete Shift:=xlShiftUp

Exit Sub

'ERROR HANLDER
NoBlanksFound:
  MsgBox "No Blank cells were found"[/COLOR][/FONT]

End Sub

[COLOR=#333333]For i = Range("A" & Rows.Count).End(xlUp).Row

Option Explicit
 
Sub DeleteBlanks()
    Dim intCol As Integer
     
    For intCol = 1 To 1 'cols A to change for number of columns
        Range(Cells(2, intCol), Cells(353, intCol)). _
        SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Next intCol
End Sub

Sub DeleteBlanks()
    Dim intCol As Integer
     
    For intCol = 1 To 2 'cols A to change for number of columns
        Worksheets("Sheet7").Range(Cells(1, intCol), Cells(353, intCol)). _
        SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Next intCol
End Sub