计算行数并将该行数插入另一个工作表

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