Copy Column Range in Workbook to Data Worksheet in differnt file

[linesy]

Good morning all,

I have around 30 worksheets (all in the same workbook but not all the sheets in the said workbook) that I need to copy 1 column range (C11:C90) in each of these tabs into a new file (ProdData.xlsm) Sheet "Qtr" at "C11" and then the next subsequent column ("D11, E11" etc.)

I recorded a macro, but it's HUGE and very ugly. Any help would be appreciated.

Thanks and have a wonderful day.

Susan

 

[dangelor]

Possibly...

Sub NotTested()
    Dim WBDest As Workbook
    Dim WSDest As Worksheet
    Dim WS As Worksheet
    Dim lCol As Long
    
    Set WBDest = Workbooks("ProdData.xlsm")
    Set WSDest = WB.Worksheets("Qtr")
    
    For Each WS In ThisWorkbook
        if ws = 'CRITERIA FOR COPYING DATA FROM A WORKSHEET' Then
            lCol = WSDest.Cells(11, WSDest.Columns.Count).End(xlLeft).Column
            WS.Range("C11:C90").Copy WSDest.Cells(11, lCol)
        End If
    Next WS
End Sub