VBA Paste into next empty row

Question

Sub Btn_Add()

    Selection.Copy

    If Range("E13") = "" Then

        Range("E13").PasteSpecial xlPasteValues

    Else

        Range("E13").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

    End If

End Sub

This VBA copies the selected cell then pastes it into column E in the next available, empty cell.

I have this code, and its returning an application define/object defined error on the else statement.

Answer 1

        Range("E13").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

I have this code, and its returning an application define/object defined error on the else statement.

If .End(xlDown) goes to the bottom of the sheet then .Offset(1, 0) is the next row below... => error.

Search always from the bottom of the sheet upwards.

Andreas.

Sub Btn_Add()

  Selection.Copy

  With Range("E13")

    If IsEmpty(.Value) Then

      .PasteSpecial xlPasteValues

    Else

      .Offset(Rows.Count - .Row).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    End If

  End With

End Sub