Copying and pasting repeatly over 5000 rows (Macro).

HI to all,

I have recorded a macro to copy and paste two different location.

At each row # under column B to U and paste to V1 (in the range V1 to AO),
and wait for all values to change over 5000 rows of 20 columns across (V1 to AO1).
Then copy at location range D2:U2 and paste to column AR1 (in the range AR1 to BI1)
to over 5000 rows 18 columns across.

The recorded macro below, I want to this macro modified to automatically to run by
itself from beginning to the end of range (over 5000 rows).

I don't want to keep on copying and pasting each rows over 5000 rows.
Range("B1:U1") keep on changing until it reach over Range("B5000:U5000") end of
range.
Range ("AR1") keep on pasting until it reach over Range ("AR5000") end of range.

Please noted*** that Range("D2:U2") and Range("V1") are one single row only, these
don't changed and stay as they are in the macro.

Sub Lottocount()
'
' Lottocount Macro
'

'
    Range("B1:U1").Select
    Selection.Copy
    Range("V1").Select
    ActiveSheet.Paste
    Range("D2:U2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AR1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AR1").Select
End Sub

Any help will be appreciated, thanks.

Greg