هذا الكود للذهاب لآخر خلية بالعمود  
المطلوب العكس كيف أذهب لأول خلية بالعمود أو خلية محددة معلومة 
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ 
'           Final   معرفة آخر خلية بها بيانات بالعمود 
Sub First()
    Dim FirstBlankCell As Long, rngFound As Range
    
    With Sheets("All")
        Set rngFound = .Columns("H:H").Find("*", After:=.Range("H1"), _
            SearchDirection:=xlPrevious, LookIn:=xlValues)
        If Not rngFound Is Nothing Then FirstBlankCell = rngFound.Row + 1
        'If we omit the value 1 we will get the last cell that contains data.
        rngFound.Offset(1, 0).Select
    End With
End Sub