JBeaucaire:
The VBA you provided works but only if the tab name matches in the coding. saw your note about "" v. no "", but when i tried to name the code active.sheet or workbook it gave me an error. i want to be able to use the code in whatever active tab i'm in regardless of the name.

I tried this, but it doesn't seem to work:
Sub Copy_7_to_37_Paste_in_First_Blank_Row()
Dim NextRow As Long, rDstNr As Long

rDstNr = Application.InputBox("How many times shall I paste it?", _
                              "Row Paster...", 1, Type:=1)
If rDstNr < 1 Then Exit Sub

With Active.Sheet
    NextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    Active.Sheet.Range("A7:A37").EntireRow.Copy .Range("A" & NextRow).Resize(rDstNr * 31)
End With

End Sub