Paste formula till the last column

[vmjan02]

I have a sheet which has the formulas in cells A2, A3, A4, A5 till A30. all this cells have different formulas

Just need a vba code which will copy the formula till BA2, BA3,BA4,BA5 till BA30

Header starts form A1 till BA1
So it will copy the formula from A2 and paste it till BA2 ( till the last column)
and then convert it to values.

Any idea...

 

[Zot]

You meant like this?

Sub Test()

Range("A1", "A30").Copy
Range("BA1").PasteSpecial (xlPasteFormulasAndNumberFormats)

End Sub

 

[Peter_SSs]

I thought that you meant copy across all columns until the last column is reached?

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

Sub CopyFormulas()
  With Range("A2:A30")
    .Copy Destination:=.Resize(, Cells(1, Columns.Count).End(xlToLeft).Column)
  End With
End Sub

 

[Zot]

Now I'm confused with last column with row

 

[vmjan02]

You meant like this?

Sub Test()

Range("A1", "A30").Copy
Range("BA1").PasteSpecial (xlPasteFormulasAndNumberFormats)

End Sub

I is working perfect

Just modified a bit

Range("BK4:BK29").Copy
Range("BL4:DF4").PasteSpecial (xlPasteFormulasAndNumberFormats)

 

[vmjan02]

I thought that you meant copy across all columns until the last column is reached?

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

Sub CopyFormulas()
  With Range("A2:A30")
    .Copy Destination:=.Resize(, Cells(1, Columns.Count).End(xlToLeft).Column)
  End With
End Sub

Thanks. This is all perfect..

 

[Peter_SSs]

Thanks. This is all perfect..

You're welcome. Thanks for the follow-up.