VBA code to select a range

[dpaton05]

What is the vba code to select a range from a4 down until there is a free line?

 

[Trebor76]

Hi dpaton05,

This is for Sheet1 (change to suit):

Sheets("Sheet1").Range("A4", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp)).Select

Regards,

Robert

 

[dpaton05]

Thanks

 

[Trebor76]

You're welcome

The above macro will select the last row used (has data in it) in Col. A from A4. If you want the first blank cell (has no data in it) in Col. A from A4 you could use this:

Option Explicit
Sub Macro2()

    Dim lngLastRow As Long
    Dim rngMyCell As Range
   
    Application.ScreenUpdating = False
   
    With Sheets("Sheet1")
        lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        For Each rngMyCell In .Range("A4:A" & lngLastRow)
            If Len(rngMyCell) = 0 Then
                .Range("A4:A" & rngMyCell.Row).Select
                Exit For
            End If
        Next rngMyCell
    End With
   
    Application.ScreenUpdating = True
  
End Sub

 

[dpaton05]

Cheers