Slight edit needed with code..

maybe so

If Not x Is Nothing Then
    x.Copy
    Sheets("Upload Sheet").Range("a" & Rows.Count).End(xlUp)(2).PasteSpecial _
            Paste:=xlPasteValues
    Application.CutCopyMode = False
End If