VBA to merge cell contents and copy in whole column

[swapnilk]

Hi,

Can someone please make a VBA to go through all worksheets in a workbook and perform the below steps
Starting from Sheet1 (name of sheets will be random)

1. In Sheet1 add cells C2&C22&C25 and copy result (Value and not the formula) to each cell of Column A (or if possible to till the last cell with data in Column-C)
2. Each cell in Column B should have the value of A+C for eg. B1=A1&C1 ; B2=A2&C2 and so on...
3. Loop through all sheets and perform Step-1 and Step-2

Thanks in advance.

 

[GWteB]

How about ...

Sub swapnilk()
    Dim Sht As Worksheet, lr As Long
    For Each Sht In ThisWorkbook.Worksheets
        With Sht
            lr = .Cells(.Rows.Count, "C").End(xlUp).Row
            .Range("A1:A" & lr).Value = Application.WorksheetFunction.Sum(.Range("C2,C22,C25"))
            .Range("B1").Formula = "=A1+C1"
            If lr > 1 Then
                .Range("B1").AutoFill Destination:=.Range("B1:B" & lr), Type:=xlFillDefault
            End If
        End With
    Next Sht
End Sub