Sub test1()
Dim FHRow1 As Long
FHRow1 = 7
ActiveCell.Offset(-FHRow1, 0).Select
End Sub