Home > Back-end >  VBA to copy a cell from multiple workbooks into specific cells in the another sheet
VBA to copy a cell from multiple workbooks into specific cells in the another sheet

Time：09-06

i have around 500 workbooks each one contains 5 sheets i want to extract data from specific cells in sheet 1 and 2 and 3 (lest say sheet 1 needs cells B2,B6,B8. and sheet 2 cells B2,C2,D2 and sheet 3 B6,D6) then past them into one sheet in specific order (lest say from sheet one goes to A,B,C columns respectively and from sheet 2 follows in columns D,E,F, then from sheet 3 also follows columns G,H,I. In short i want to make a table from the extracted cells

thanks in advance

CodePudding user response：

@Cyrus this is the list of actions needed

nb : all needed sheets in all workbooks have the same names and order

enterSheets("Basic Information").Select
Range("B2").Select
Selection.Copy
ActiveSheet.Paste
Range("B2").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("C2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("D2").Select
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("E2").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F2").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("G2").Select
Sheets("RF").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("H2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("I2").Select
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
ActiveSheet.Paste
Range("J2").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("K2").Select
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Range("L2").Select
ActiveSheet.Paste
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Range("N2").Select
ActiveSheet.Paste
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Range("O2").Select
ActiveSheet.Paste
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Range("P2").Select
ActiveSheet.Paste
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q2").Select
ActiveSheet.Paste
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
Range("R2").Select
ActiveSheet.Paste
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
Range("S2").Select
ActiveSheet.Paste
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
Range("T2").Select
ActiveSheet.Paste
Range("B25").Select
Application.CutCopyMode = False
Selection.Copy
Range("U2").Select
ActiveSheet.Paste
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Range("V2").Select
ActiveSheet.Paste
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Range("W2").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Range("X2").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y2").Select
ActiveSheet.Paste
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Range("Z2").Select
ActiveSheet.Paste
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA2").Select
ActiveSheet.Paste
Range("C10").Select
Application.CutCopyMode = False
Selection.Copy
Range("AB2").Select
ActiveSheet.Paste
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC2").Select
ActiveSheet.Paste
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Range("AD2").Select
ActiveSheet.Paste
Range("C13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AE2").Select
ActiveSheet.Paste
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Range("AF2").Select
ActiveSheet.Paste
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG2").Select
ActiveSheet.Paste
Range("C22").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH2").Select
ActiveSheet.Paste
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Range("AI2").Select
ActiveSheet.Paste
Range("C24").Select
Application.CutCopyMode = False
Selection.Copy
Range("AJ2").Select
ActiveSheet.Paste
Range("C25").Select
Application.CutCopyMode = False
Selection.Copy
Range("AK2").Select
ActiveSheet.Paste
Range("C26").Select
Application.CutCopyMode = False
Selection.Copy
Range("AL2").Select
ActiveSheet.Paste
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM2").Select
ActiveSheet.Paste
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN2").Select
ActiveSheet.Paste
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Range("AO2").Select
ActiveSheet.Paste
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AP2").Select
ActiveSheet.Paste
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Range("AQ2").Select
ActiveSheet.Paste
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR2").Select
ActiveSheet.Paste
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Range("AS2").Select
ActiveSheet.Paste
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Range("AT2").Select
ActiveSheet.Paste
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AU2").Select
ActiveSheet.Paste
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Range("AV2").Select
ActiveSheet.Paste
Range("D15").Select
Application.CutCopyMode = False
Selection.Copy
Range("AW2").Select
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Range("AX2").Select
ActiveSheet.Paste
Range("D23").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY2").Select
ActiveSheet.Paste
Range("D24").Select
Application.CutCopyMode = False
Selection.Copy
Range("AZ2").Select
ActiveSheet.Paste
Range("D25").Select
Application.CutCopyMode = False
Selection.Copy
Range("BA2").Select
ActiveSheet.Paste
Range("D26").Select
Application.CutCopyMode = False
Selection.Copy
Range("BB2").Select
ActiveSheet.Paste
Range("BC2").Select
Sheets("TI&PW").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("BD2").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE2").Select
ActiveSheet.Paste
Range("BF2").Select
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F11").Select
Application.CutCopyMode = False
Selection.Copy
Range("BG2").Select
ActiveSheet.Paste
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Range("BH2").Select
ActiveSheet.Paste
Range("BI2").Select
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Range("BJ2").Select
ActiveSheet.Paste
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Range("BK2").Select
ActiveSheet.Paste
Range("C19").Select
Application.CutCopyMode = False
Selection.Copy
Range("BL2").Select
ActiveSheet.Paste
Range("F19").Select
Application.CutCopyMode = False
Selection.Copy
Range("BM2").Select
ActiveSheet.Paste
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Range("BN2").Select
ActiveSheet.Paste
Range("BO2").Select
Range("F20").Select
Application.CutCopyMode = False
Selection.Copy`enter code here`
ActiveSheet.Paste
Range("BP2").Select
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Range("BQ2").Select
ActiveSheet.Paste
Range("C27").Select
Application.CutCopyMode = False
Selection.Copy
Range("BR2").Select
ActiveSheet.Paste
Range("F27").Select
Application.CutCopyMode = False
Selection.Copy
Range("BS2").Select
ActiveSheet.Paste
Range("C28").Select
Application.CutCopyMode = False
Selection.Copy
Range("BT2").Select
ActiveSheet.Paste
Range("F28").Select
Application.CutCopyMode = False
Selection.Copy
Range("BU2").Select
ActiveSheet.Paste
Range("C29").Select
Application.CutCopyMode = False
Selection.Copy
Range("BV2").Select
ActiveSheet.Paste
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Range("BW2").Select
ActiveSheet.Paste
Range("C30").Select
Application.CutCopyMode = False
Selection.Copy
Range("BX2").Select
ActiveSheet.Paste
Range("F30").Select
Application.CutCopyMode = False
Selection.Copy
Range("BY2").Select
ActiveSheet.Paste
Range("C31").Select
Application.CutCopyMode = False
Selection.Copy
Range("BZ2").Select
ActiveSheet.Paste
Range("F31").Select
Application.CutCopyMode = False
Selection.Copy
Range("CA2").Select
ActiveSheet.Paste
Range("C32").Select
Application.CutCopyMode = False
Selection.Copy
Range("CB2").Select
ActiveSheet.Paste
Range("F32").Select
Application.CutCopyMode = False
Selection.Copy
Range("CC2").Select
ActiveSheet.Paste code here

CodePudding user response：

this is what i ended up with after recording

Sub Extract_Data() ' ' Extract_Data Macro '

enter 
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B2").Select
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("B2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("C2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("D2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("E2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("F2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("G2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Sheets("RF").Select
ActiveWindow.SmallScroll Down:=-54
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("H2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("I2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("I2").Select
ActiveSheet.Paste
Range("J2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("K2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("L2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("M2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("N2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("O2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("P2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Q2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=4
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("R2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("S2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("T2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("U2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("V2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=-18
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("W2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("X2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Y2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Z2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AB2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AC2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AD2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AE2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AF2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AG2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AH2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AI2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AJ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AK2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AL2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=-57
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AM2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AN2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AO2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AP2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AQ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AR2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AS2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AT2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AU2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=9
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AV2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AW2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AX2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("D23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AY2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AZ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BB2").Select
ActiveSheet.Paste
Range("BC2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Sheets("TI&PW").Select
ActiveWindow.SmallScroll Down:=-27
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("BD2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BE2").Select
ActiveSheet.Paste
Range("BF2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BG2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BH2").Select
ActiveSheet.Paste
Range("BI2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=12
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BJ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BK2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BL2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BM2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BN2").Select
ActiveSheet.Paste
Range("BO2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F20").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("BP2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BQ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BR2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BS2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BT2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BU2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C29").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BV2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BW2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BX2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BY2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BZ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C32").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CB2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F32").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CC2").Select
ActiveSheet.Paste

End Sub code here

Page link：https//www.codepudding.com/Backend/534879.html

Prev:How can I modify a SQL query for take only some data from a column?
Next:Need a popup window to open only the first time in a continuous form
  • Related

About Us:  Contact Us      Terms of Service       Privacy Policy

Copyright © 2010-2023，Powered By CodePudding