'Sub CopyData()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Data" And ws.Name <> "Centre" Then ws.UsedRange.Offset(18).ClearContents
Next ws
Application.ScreenUpdating = False
Dim bottomA As Long
bottomA = Range("F" & Rows.Count).End(xlUp).Row
Dim AccNum As Range
For Each AccNum In Range("F2:F" & bottomA)
Sheets(CStr(AccNum)).Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -4)
Sheets(CStr(AccNum)).Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -3)
Sheets(CStr(AccNum)).Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -2)
Sheets(CStr(AccNum)).Cells(Rows.Count, "E").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -1)
Next AccNum
Application.ScreenUpdating = True
ActiveWorkbook.Save
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & Cells(Rows.Count, "B").End(xlUp).Row