Drag formula across one cell to right

[hanz753]

Hello, I have recorded the macro below and assigned it to a button in Excel.

Range("H22").Select
Selection.AutoFill Destination:=Range("H22:I22"), Type:=xlFillDefault
Range("H22:I22").Select

I now need it to continue to the next cell( Copy formula in Cell H22 and paste in J22)

Can this be done in VBA?

Thanks

 

[footoo]

Replace your code with :

Range("H22").Copy Range("I22:J22")

 

[hanz753]

Thank you for the idea.

What I did was, I simply changed the range in the second line of my code to ("I22:J22").

And it works perfectly!

Thank You!