Sub tert()
Row = Cells(1, 2).Value
cols = Cells(1, 3).Value
Лист2.Cells(Row, cols).Activate
End Sub

Function GetRealTime(Optional ByVal GMT& = 4) As Date
    On Error Resume Next: Err.Clear: Dim http As Object, URL$, GMT_Time$, m$, mv$
    'GetRealTime = Now        ' значение по-умолчанию

    Set http = CreateObject("Microsoft.XMLHTTP")
    URL$ = "http://yandex.ru/"        ' можно указать практически любой сайт
    http.Open "GET", URL$, False
    http.Send
 
    GMT_Time = http.GetResponseHeader("Date")
    Set http = Nothing
 
    ' пример полученной строки:  Sun, 27 Apr 2014 06:14:44 GMT
    'If Not (GMT_Time Like "???, *# ??? #### ##:##:##*GMT*") Then Exit Function
    GMT_Time = Trim(Split(GMT_Time, ",")(1))
    GMT_Time = Trim(Split(GMT_Time, "GMT")(0))
    m$ = Trim(Split(GMT_Time)(1))
    mv$ = (InStr(1, "janfebmaraprmayjunjulaugsepoctnovdec", m$, vbTextCompare) + 2) / 3
    GMT_Time = Replace(GMT_Time, " " & m$ & " ", "." & Format(mv$, "00") & ".")
 
    GetRealTime = CDate(GMT_Time) + Val(GMT&) / 24
End Function

Sub ВывестиТекущуюДатуИВремя()
    t = GetRealTime
    MsgBox t, vbInformation, "Текущее время (в Москве)"
 End Sub

Sub S_ClipboardText()
    Dim asr, asc, lr&
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        asr = Split(.GetText, vbNewLine)
        For lr = LBound(asr) To UBound(asr)
            If asr(lr) <> "" Then
                asc = Split(asr(lr), vbTab)
                ActiveCell.Offset(lr, 0).Resize(, UBound(asc) + 1).value = asc
            End If
        Next
    End With
End Sub

Cells(21, 21).Value = Application.SumIfs(Range("FS200:FS5000"), Range("HY200:HY5000"), ">=" & Range("T6").Value2, Range("HY200:HY5000"), "<=" & Range("A3").Value2)

Cells(21, 21) = Application.SumIfs(Range("FS:FS"), Range("HY:HY"), ">=" & "T6", Range("HY:HY"), "<=" & "A3")