Code not pasting work in right cell

So I have this code below that seperately works perfectly fine together however theres a slight problem that I need help fixing.

Code Below:

Sub mickeyb()

Dim EndOf1 As Integer
Dim EndOf2 As Integer

Sheets("dataload").Select

EndOf1 = Sheets("dataload").UsedRange.Rows.Count
EndOf2 = Sheets("rawdata").UsedRange.Rows.Count + 1

Sheets("dataload").Select
Range("A2:D" & EndOf1).Select
Selection.Copy

Sheets("rawdata").Activate
If Range("A2") = "" Then
    Range("A2").Select
    Else: Range("A" & EndOf2).Select
End If
ActiveSheet.Paste


Dim dbTemp As Integer

Dim s1 As Integer
Dim s2 As Integer

Dim nRow As Long


Dim strTemp1 As String
Dim strTemp2 As String
Dim strTemp3 As String
Dim strTemp4 As String

Sheets("dataload").Select
Range("A1").Select

Sheets("datamanip").Select
Range("C1").Select
sRowPos = 2

A120_Loop:

If Cells(sRowPos, 3) = "" Then
    GoTo A120_Exit
End If

Cells(sRowPos, 3).Select
sRowPos = sRowPos + 1
GoTo A120_Loop

A120_Exit:

Sheets("dataload").Select
Range("A1").Select
s1 = 2

A140_Loop:

Sheets("dataload").Select
If Cells(s1, 1) = "" Then
    GoTo A140_exit
End If

Cells(s1, 1).Select

strTemp1 = Cells(s1, 1)
strTemp2 = Cells(s1, 2)
strTemp3 = Cells(s1, 3)
strTemp4 = Cells(s1, 4)

Cells(s1, 1) = ""
Cells(s1, 2) = ""
Cells(s1, 3) = ""
Cells(s1, 4) = ""

Sheets("datamanip").Select

Cells(sRowPos, 3).Select

Cells(sRowPos, 3) = strTemp1
Cells(sRowPos, 4) = strTemp2
Cells(sRowPos, 5) = strTemp3
Cells(sRowPos, 6) = strTemp4

s1 = s1 + 1
sRowPos = sRowPos + 1
GoTo A140_Loop

A140_exit:

Sheets("datamanip").Select

    For nRow = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        If Not IsEmpty(Cells(nRow, "C")) _
        And Not IsEmpty(Cells(nRow, "D")) _
        And Not IsEmpty(Cells(nRow, "E")) _
        And Not IsEmpty(Cells(nRow, "F")) Then
            Cells(nRow, "A") = Date
        End If
    Next nRow

End Sub

The problem is this part of the code instead of the code

Dim EndOf1 As Integer
Dim EndOf2 As Integer

Sheets("dataload").Select

EndOf1 = Sheets("dataload").UsedRange.Rows.Count
EndOf2 = Sheets("rawdata").UsedRange.Rows.Count + 1

Sheets("dataload").Select
Range("A2:D" & EndOf1).Select
Selection.Copy

Sheets("rawdata").Activate
If Range("A2") = "" Then
    Range("A2").Select
    Else: Range("A" & EndOf2).Select
End If
ActiveSheet.Paste

Instead of the code pasting the data directly under the old data in the next empty cell for some reason it is pasting the data in row 19 missing a whole load of empty cells. I can't really see whats wrong with the code, because in its own macro it works perfect. so please have a look guys

cheers romperstomper i'm relatively new to vba so is there any chance you can show me what needs changing in that code. it would be really appreciate thanks again for the reply

even though romperstomper seems to have solved the problem, i'm so new to vba that i still haven't gotta clue whats going on. so i'm gonna post again

this code below is selecting to much data in the data load sheet it should only be selecting cells that are in a2:d that have data in them. then it should copy them and paste them in the rawdata sheet. currently its copying to much so when I paste data a second time the data is not in the next empty cell

Dim EndOf1 As Integer
Dim Endof2 As Integer

EndOf1 = Sheets("dataload").UsedRange.Rows.Count
Endof2 = Sheets("rawdata").UsedRange.Rows.Count + 1

Sheets("dataload").Select
Range("a2:d" & EndOf1).Select
Selection.Copy

Sheets("rawdata").Activate
If Range("a2") = "" Then
    Range("a2").Select
    Else: Range("A" & Endof2).Select
End If
ActiveSheet.Paste

cheers romperstomper I was just being an idiot for a second.

It does work really well so i have no problems but out of interest why is the code still copying more cells than the data is actually in, its still copying a load of blank cells.

thanks alot romper stomper you've been great help thanks