suggest the mistake in this macro part

[Safal Shrestha]

This part of the macro is for pasting in a different sheet. I have the heading in row b3 of sheet named "i".. there is error in the line after the else command.

Sheets("i").Activate
    Range("B3").Select
    If Range("b3").Offset(1, 0) = "" Then
    Selection.Offset(1, 0).Select
    Else
    Selection.Range(xlDown).Offset(1, 0).Select
    End If
    ActiveSheet.paste