What i want is what below the below code does but in a new WorkBook and if i have multiple ranges? for e.g. my second range would be B19:B2700 and if that is so it should Copy Sheet FSR Level B instead of FSR Level A and third Range would be C19:C2700 and output to be FSR Level C sheet. Greatly appreciate any help on this
Sub Create_CentralA()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("FSR Level A")
Set sh2 = Sheets("BI")
For Each c In sh2.Range("A35:A2700", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants)
sh1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Next
End Sub
Sub Create_CentralA()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("FSR Level A")
Set sh2 = Sheets("BI")
For Each c In sh2.Range("A35:A2700", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants)
sh1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Next
End Sub