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
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