Dim rF As Range
    Dim lLastRow As Long
    Set rF = ActiveSheet.UsedRange.Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False)
    If Not rF Is Nothing Then
        lLastRow = Split(rF.Address, "$")(2)
    Else
        lLastRow = 1
        MsgBox "Øëÿïà, ñâÿæèòåñü ñ àäìèíèñòðàòîðîì"
    End If
   
    Range("B4:T" & lLastRow).Copy

End Sub