Copy Range X times Based on User Entered #

Hello all,

I am looking to create a macro that copies data from A3:D3 and paste it X times on a new speadsheet (X: this number is entered in cell cell J3 by the user).

All of the light orange on the Check's Sheet would be filled in by the user and the Server Pay Sheet would be populated with 1 line for each server (J3) working the event.

I would like the sheet to look like "Should Look Like This" sheet. And i want the Macro to run 1 line at a time if possible (So I can run it each time I have a new event).

Thanks in advance for any assistance!

Test Copy.xlsm

It is real handy to attach a file that needs a password.

While you're looking for your password, try this on a copy of your workbook.

Sub Maybe()
    Dim lr As Long, i As Long, b As Long, a(), j As Long
    lr = Range("A3").End(xlDown).Row
    For i = 3 To lr
        b = Cells(i, 10).Value
        a() = Array(Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4).Value, Cells(i, 10).Value, Cells(i, 9).Value / b)
        For j = 1 To b
            With Sheets("Server Pay Sheet")
                .Range("A" & .Rows.Count).End(xlUp)(2).Resize(, 6) = a
            End With
        Next j
    Next i
End Sub

Run it from the "Check's" Sheet.

Sorry guys, the password is "password". They both work for what i'm looking for so thank you.
One last thing would be is there a way I can run it and have it only copy over new data? For example if I ran it with the current Check's sheet, and then I added 1 more row below with new data to the Check's Sheet, could it only copy over that 1 row of new data?

Thanks for your help

Clear the "Server Pay Sheet" first would be the proper way to go in case something is changed in the existing data.
Run the macro again on all data.
If that is not possible, let us know.

Just in case you want to go with clearing "Server Pay Sheet" first, something like this would probably do it.
This code can be run from any sheet. You don't have to be in "Check's" sheet

Sub Maybe_A()
    Dim lr As Long, i As Long, b As Long, a(), j As Long, sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("Check's")
    Set sh2 = Sheets("Server Pay Sheet")

    sh2.Range("A1:A" & sh2.Cells(Rows.Count, 1).End(xlUp).Row).Offset(2).Resize(, 7).ClearContents
    lr = sh1.Cells(Rows.Count, 10).End(xlUp).Row

    For i = 3 To lr
        b = sh1.Cells(i, 10).Value
        a() = Array(sh1.Cells(i, 1).Value, sh1.Cells(i, 2).Value, sh1.Cells(i, 3).Value, sh1.Cells(i, 4).Value, sh1.Cells(i, 10).Value, sh1.Cells(i, 9).Value / b)
        For j = 1 To b
            With sh2
                .Range("A" & .Rows.Count).End(xlUp)(2).Resize(, 6) = a
            End With
        Next j
    Next i
End Sub

Here is another one. Includes the servers.

Those are some great macros! I think everything is setup and I am good. Thanks for everyone's help.