Подсчет количества строк и вставка этого количества строк в другой лист

Question

Я пытаюсь сделать следующее:

1. Подсчет количества строк в листе с данными
2. Вставьте это количество строк в другой лист («комбинированный») над строкой 7
3. Скопируйте и вставьте значения из первого листа ("конвейер") в эти новые строки

Я борюсь с 1 и 2. У меня есть код для шага 3. Любая помощь приветствуется

Смотрите код, который я пробовал ниже.

 Sub Copy_PasteRows()

 'Count number of rows in Simplified pipeline and set as q


q = Sheets("Pipeline simplified").Range("H:H").SpecialCells(xlCellTypeVisible).Count

' Insert the required number of Rows into Combined sheet

Rows("7:7+q").Insert Shift:=xlDown, _
  CopyOrigin:=xlFormatFromLeftOrAbove


'Copy and paste Values from simplified into combined

Sheets("Pipeline simplified").Select

Range("A7:AF" & Range("H" & Rows.Count).End(xlUp).Row).Select
Selection.Copy
Sheets("2013-2018 Combined").Select
Rows("7:7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False


 End Sub