Перенос значений на другой лист с поиском свободной строки

Option Explicit
Sub Кнопка1_Щелчок()
    Dim i&, k&
    With Лист2
        k = .Cells(.Rows.Count, "D").End(xlUp).Row - 1
        With .Cells(k, 1).Range("D3")
           .Value = [J10].Value
           .Font.Bold = True
           .HorizontalAlignment = xlCenter
        End With
        .Cells(k, 1).Range("C4") = [T47].Value
        .Cells(k, 1).Range("D4") = [E18].Value
        .Cells(k, 1).Range("D5") = [E20].Value
        .Cells(k, 1).Range("D6") = [E22].Value
        .Cells(k, 1).Range("D7") = [E24].Value
        .Cells(k, 1).Range("D8") = [E26].Value
        .Cells(k, 1).Range("D9") = [E28].Value
        .Cells(k, 1).Range("D10") = [E30].Value
        .Cells(k, 1).Range("D11") = [E32].Value
        .Cells(k, 1).Range("D12") = [E34].Value
        .Cells(k, 1).Range("D13") = [E36].Value
        .Cells(k, 1).Range("E4") = [Y18].Value
        .Cells(k, 1).Range("E5") = [Y20].Value
        .Cells(k, 1).Range("E6") = [Y22].Value
        .Cells(k, 1).Range("E7") = [Y24].Value
        .Cells(k, 1).Range("E8") = [Y26].Value
        .Cells(k, 1).Range("E9") = [Y28].Value
        .Cells(k, 1).Range("E10") = [Y30].Value
        .Cells(k, 1).Range("E11") = [Y32].Value
        .Cells(k, 1).Range("E12") = [Y34].Value
        .Cells(k, 1).Range("E13") = [Y36].Value
        .Cells(k, 1).Range("F4") = [Z18].Value
        .Cells(k, 1).Range("F5") = [Z20].Value
        .Cells(k, 1).Range("F6") = [Z22].Value
        .Cells(k, 1).Range("F7") = [Z24].Value
        .Cells(k, 1).Range("F8") = [Z26].Value
        .Cells(k, 1).Range("F9") = [Z28].Value
        .Cells(k, 1).Range("F10") = [Z30].Value
        .Cells(k, 1).Range("F11") = [Z32].Value
        .Cells(k, 1).Range("F12") = [Z34].Value
        .Cells(k, 1).Range("F13") = [Z36].Value
        For i = k + 3 To k + 12
            If Trim$(.Cells(i, "D")) <> "" Then
                .Cells(i, "I").FormulaR1C1 = "=IF(AND(ISBLANK(C[-4]),ISBLANK(C[-3])),"""",TODAY()-R" & (k + 3) & "C2)"
            End If
        Next i
    End With
End Sub