VBA

[xxsalahxx]

Hello I am using a vba to copy data from Sheet1 onto another tab Sheet2 however if I would like this data to also copy into Sheet3 and Sheet4 how would i adjust this vba to accomodate this? Im a novice at macros so im just learning and this is puzzling me.
Thank you in advance for any help

Sub Copy_Data()
'
'
Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
Dim CpyRng As Range
Dim L As Long
'
Set Sht1 = ActiveWorkbook.Sheets("Sheet1")
Set Sht2 = ActiveWorkbook.Sheets("Sheet2")
L = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
Set CpyRng = Sht1.Range("A2:Z" & L)
'
CpyRng.Copy
Sht2.Range("A1").PasteSpecial
Application.CutCopyMode = False
'
'
End Sub

 

[mrshl9898]

try:

Sub Copy_Data()
'
'
Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
Dim Sht3 As Worksheet
Dim Sht4 As Worksheet
Dim CpyRng As Range
Dim L As Long
'
Set Sht1 = ActiveWorkbook.Sheets("Sheet1")
Set Sht2 = ActiveWorkbook.Sheets("Sheet2")
Set Sht3 = ActiveWorkbook.Sheets("Sheet3")
Set Sht4 = ActiveWorkbook.Sheets("Sheet4")
L = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
Set CpyRng = Sht1.Range("A2:Z" & L)
'
CpyRng.Copy
Sht2.Range("A1").PasteSpecial
Sht3.Range("A1").PasteSpecial
Sht4.Range("A1").PasteSpecial
Application.CutCopyMode = False
'
'
End Sub

 

[xxsalahxx]

Thank you so much this has saved me a lot of time, very much appreciated

 

[mrshl9898]

No worries