Sub Df()
    Dim sh2 As Worksheet, ar(1 To 1, 1 To 10)
    Dim r1_ As Long
    Set sh2 = Worksheets("Клиенты")
    r1_ = sh2.Cells(Rows.Count, 2).End(3).Row
    ar(1, 1) = Cells(5, 3)
    ar(1, 2) = Cells(5, 5)
    ar(1, 3) = Cells(8, 5)
    ar(1, 4) = Cells(6, 3)
    ar(1, 5) = Cells(7, 5)
    ar(1, 6) = Cells(6, 7)
'    ar(1, 7) = ""
'    ar(1, 8) = ""
    ar(1, 9) = Cells(Cells(Rows.Count, 13).End(3).Row, 13)
    ar(1, 10) = Cells(Cells(Rows.Count, 9).End(3).Row - 2, 9)
    With sh2
        r1_ = .Cells(.Rows.Count, 2).End(3).Row
        If .Cells(r1_, 2) = "" Then
            r1_ = .Cells(r1_, 2).End(3).Row
        End If
        .Cells(r1_ + 1, 2).Resize(1, 10) = ar
    End With
    MsgBox "Перенесено"
End Sub