Trying to copy and paste some variable data - excel

Question

i'm working on a existing excel file with lots of macros and want to copy and paste variable data from 5 different sheets to 5 other sheets without copying blank cells. this is what i made so far and gives me Runtime error 1004:
Sub Macro1()
Sheets("Hulp_IO").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("IO").Select
Range("B2").Select
ActiveSheet.Paste
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("A2").Select
ActiveSheet.Paste
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("A2").Select
ActiveSheet.Paste
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
ActiveSheet.Paste
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
ActiveSheet.Paste
Sheets("Start").Select
End Sub

Answer 1

Here is your code largely reviewed, because the .Select command is really ressource-greedy and now it is far more readable!
I don't know on which line you had the error with your code but it is an important information, so add it even if this solve your problem! ;)
Here is the code :
Sub Nito_Nascimento()
Dim WsFrom As Worksheet, _
WsTo As Worksheet
Set WsFrom = Sheets("Hulp_IO")
Set WsTo = Sheets("IO")
WsFrom.Range("A1", WsFrom.Range("A" & WsFrom.Rows.Count).End(xlUp)).Copy
WsTo.Range("B2").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=False
Set WsFrom = Sheets("Hulp_Modbus_PMSX_Lees_Tags")
Set WsTo = Sheets("Modbus_Lees_Tags_PMSX")
Application.CutCopyMode = False
WsFrom.Range("A1", WsFrom.Range("A" & WsFrom.Rows.Count).End(xlUp)).Copy
WsTo.Range("A2").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=False
Set WsFrom = Sheets("Hulp_Modbus_PMSX_Schrijf_Tags")
Set WsTo = Sheets("Modbus_Schrijf_Tags_PMSX")
Application.CutCopyMode = False
WsFrom.Range("A1", WsFrom.Range("A" & WsFrom.Rows.Count).End(xlUp)).Copy
WsTo.Range("A2").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=False
Set WsFrom = Sheets("Hulp_Modbus_Pakscan_Lees_Tags")
Set WsTo = Sheets("Modbus_Lees_Tags_PackScan")
Application.CutCopyMode = False
WsFrom.Range("A1", WsFrom.Range("A" & WsFrom.Rows.Count).End(xlUp)).Copy
WsTo.Range("A2").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=False
Set WsFrom = Sheets("Hulp_Modbus_Pakscan_Schrijf_Tag")
Set WsTo = Sheets("Modbus_Schrijf_Tags_PackScan")
Application.CutCopyMode = False
WsFrom.Range("A1", WsFrom.Range("A" & WsFrom.Rows.Count).End(xlUp)).Copy
WsTo.Range("A2").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=False
Application.CutCopyMode = False
Sheets("Start").Activate
Set WsFrom = Nothing
Set WsTo = Nothing
End Sub