[VBA Question]: Copy/paste every single quarter - replicate 40 times in a quarter

[fjacruz]

Hi guys,

I'm not particular specialist on vba code but it'd be great if I got a automatization here.
Every single quarter I need to copy a paste (to break formulas) a specific column (lets assume D column) to the first column to the right...the idea behind is add a new column to the structure every single quarter so i've to find to code in a way to find the next empty column. On top of that, i need to replicate it 40 times per quarter. All tabs are starting by same name lets assume (Resume xxx). Firstly i need to update computation across the 40 tabs and then execute it.

I appreciate all valuable input.

Thank you

 

[StephenCrump]

Perhaps something along these lines? (Test it on a backup copy of your workbook)

Sub MyCopy()

    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.Name, 6) = "Resume" Then
            ws.Range("D:D").Copy
            'Assumes first empty column is to the right of last populated cell in row 1
            With ws.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
                .PasteSpecial Paste:=xlPasteValues
                .PasteSpecial Paste:=xlPasteFormats
            End With
        End If
    Next ws

End Sub