ОК, Гоча. Попробуйте это:
Sub visible()
Dim a As Range, f As Range
Dim b As Integer, c As Integer
Set a = Excel.ActiveWindow.VisibleRange
b = a.Columns.Count 'number of columns shown on screen
c = a.Columns(a.Columns.Count).Column 'column number of last column on screen
ActiveCell = Cells(ActiveCell.Row, c - b + 1).Address
End Sub
Это даст вам букву столбца + номер строки первого столбца в той же строке вашей активной ячейки. Надеюсь, это полезно.