Having problems with this one...

Hi everybody, I just created this macro to copy and paste generated data that fluctuates a lot, but it just doesn't work very good...
Every time i activate it, i get a paste error and i get infinite zeros after the data, any suggestions on this one?

Sub Macro1()


Application.ScreenUpdating = False
'IO
Sheets("Hulp_IO").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("IO").Select
Range("B2").Select
On Error Resume Next
ActiveSheet.Paste Link:=True
On Error GoTo 0
Range("B2").Select
'Modbus_Lees_Tags_PMSX
Sheets("Hulp_Modbus_PMSX_Lees_Tags").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modbus_Lees_Tags_PMSX").Select
Range("D2").Select
On Error Resume Next
ActiveSheet.Paste Link:=True
On Error GoTo 0
Range("D2").Select
'Modbus_Schrijf_Tags_PMSX
Sheets("Hulp_Modbus_PMSX_Schrijf_Tags").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modbus_Schrijf_Tags_PMSX").Select
Range("D2").Select
On Error Resume Next
ActiveSheet.Paste Link:=True
On Error GoTo 0
Range("D2").Select
'Modbus_Lees_Tags_PackScan
Sheets("Hulp_Modbus_Pakscan_Lees_Tags").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modbus_Lees_Tags_PackScan").Select
Range("A2").Select
On Error Resume Next
ActiveSheet.Paste Link:=True
On Error GoTo 0
Range("A2").Select
'Modbus_Schrijf_Tags_PackScan
Sheets("Hulp_Modbus_Pakscan_Schrijf_Tag").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modbus_Schrijf_Tags_PackScan").Select
Range("A2").Select
On Error Resume Next
ActiveSheet.Paste Link:=True
On Error GoTo 0
Range("A2").Select
Sheets("Start").Select

End Sub

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

And while you are at it add code tags to your code as per forum rules

If OP hasn't answered after 5 months, he probably found an answer elsewhere...