Macro code editing to collect extra lines of Data

[Cupragsw]

The following code produces a spreadsheet with the following titles and data

Miro Ref Resolver 2 Customer Acceptance Customer Number Customer Name Resolver 2 E/C Number Resolver 2 Manager Resolver 2 Site

'Collect Acceptance Confirmed
Sheet11.Activate
x = Range("A1").CurrentRegion.Rows.Count

Sheet11.Range(Cells(1, 1), Cells(x, 28)).Copy
Sheet1.Activate
Cells(1, 1).Select

ActiveSheet.Paste
Application.CutCopyMode = False


'Collect Acceptance Not Confirmed
Sheet12.Activate
y = Range("A1").CurrentRegion.Rows.Count
Sheet12.Range(Cells(2, 1), Cells(y, 28)).Copy
Sheet1.Activate
Cells(x + 1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False


'Collect All Escalations
Sheet19.Activate
z = Range("A1").CurrentRegion.Rows.Count
Sheet19.Range(Cells(2, 1), Cells(z, 28)).Copy
Sheet1.Activate
Cells(x + y, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

However, i need this to pick up an extra colloum from the 3 sheets

the extar coplloum i need is F from each of the 3 sheets

current it picks up A,L,R,V,W,Z,AA and AB

How can i amend it to collect the F colloum

might seems easy but i have inherated this spreadsheet and Macro so i am working around procedures created by someone else who is no longer in the busniess

[davesexcel]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic