Sub заполнение()
Dim wb As Workbook
Dim ws1 As Worksheet, wsT13 As Worksheet
Dim i As Integer, n As Integer, q As Integer, k As Integer
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets(1)
Set wsT13 = wb.Worksheets("Т-13")
    i = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    k = i
    Do While ws1.Cells(k, 1) <> ""
        k = k - 1
    Loop
    k = k + 2
    For n = k To i
        For q = 3 To 33
            If q <= 17 Then
                wsT13.Cells(21 + (n - k + 1) * 4, 45 + (q - 2) * 4) = ws1.Cells(k, q)
            Else
                wsT13.Cells(23 + (n - k + 1) * 4, 45 + (q - 2 - 15) * 4) = ws1.Cells(k, q)
            End If
        Next q
    Next n
    
End Sub