VBA to Select Cells???

[julia55]

I am trying to figure out why this macro isn't working. I am trying to have it look at the value of the cell below and if it is blank then copy only the active cell. If it is not blank then I want it to select from the active cell to the end of the row (which will vary). Here is the code I have so far. It works to select the single cell, but not on the selection to the end. PLEASE HELP!

If IsNull(ActiveCell.Offset(1, 0).Value) = True Then
        ActiveCell.Copy
        ElseIf IsNull(ActiveCell.Offset(1, 0).Value) = False Then Range(ActiveCell, Selection.End(xlDown)).Copy
    End If

 

[shg]

A cell can never contain the value Null.

    If IsEmpty(ActiveCell.Offset(1, 0).Value) Then
        ActiveCell.Copy
    Else
        Range(ActiveCell, ActiveCell.End(xlDown)).Copy
    End If

 

[julia55]

Thank you shg, that worked out perfectly!

 

[shg]

You're welcome, happy to help.