Help Fixing Copy/Paste VBA

Try this:

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 Sheets("Dept.Store")
    NextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    Sheets(1).Range("A7:A37").EntireRow.Copy .Range("A" & NextRow).Resize(rDstNr * 31)
End With

End Sub

Special note: Sheets("1") and Sheets(1) are completely different things.
Sheets(1) - the first indexed sheet in the workbook, could have any name
Sheets("1") - a worksheet named "1" found anywhere in the workbook