I got it:
Selection.CurrentRegion.Select
Set originalTable = Range(Selection.Address)
If ActiveCell.Row < 4 Then
 ActiveSheet.Cells(4, 1).Select
 Selection.CurrentRegion.Select
End If