CopyPaste диапазон данных значений следующих пустых строки

Question

у меня есть таблицы, которые я использую каждый день, чтобы генерировать день P & L. Я скопировать и вставить 13 строк на дне предыдущего дня P & L. Я хочу для создания макроса, который скопировал бы 13 строк в следующую пустую ячейку. У меня есть код для захвата первой строки и последней строки в диапазоне данных.

Я не знаю, как захватить 13 строк, строки 15 до 27, и мимо них на второй пустой строке, строка 29:

У меня есть этот код до сих пор:

Sub PasteValToNextRows() 

Application.ScreenUpdating = False 

    lMaxRows = Cells(Rows.Count, "A").End(xlUp).row 

    '*****Copy the Rows of Data Range and Paste to next second Empty Row***** 

    ''''''Finds the First Row within a Data Range 
    Range("A" & lMaxRows + 0).Offset(-12, 0).EntireRow.Select 

    '''''Finds the Last Row within a Data Range 
    Range("A" & lMaxRows + 0).EntireRow.Select  

    Application.CutCopyMode = False 

    Application.ScreenUpdating = True 

    [![enter image description here][1]][1]End Sub 

Answer 1

Использование copy/paste, потому что похоже, что у вас есть форматирование. Пожалуйста, см. Комментарий, чтобы отразить диапазон, в котором вы нуждаетесь.

Sub cemg() 

Dim fRow As Long 
Dim lRow As Long 

With ActiveSheet 

    lRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    fRow = lRow - 12 

    .Range(.Cells(fRow, 1), .Cells(lRow, 6)).Copy 'change 6 to the number of columns you have 
    .Cells(lRow + 2, 1).PasteSpecial 

End With 

End Sub