cant select specific data and paste in next empty cell

whats wrong with this code? for some reason it is selecting to much and then when pasting in the rawdata sheet it isn't going in the next empty cell. The code is meant to copy all the used cells in a2:d and then paste in under the next empty cell in sheet rawdata.

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