Copy to current region

[tljenkin]

Hi All

I have a little problem that makes me wonder about my vba

I have a cell that says "week 5", lets say it is in cell A2

I want a code that will look at cell a2 and paste "week 6" in cell A3 or the current region (assume b3:b15 has data in it)

This has to be dynamic as the week will change each week

Thanks

 

[Yahya]

Try This Code

Sub Test()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Range("a2").AutoFill Range("A2:A" & LR)
End Sub

 

[tljenkin]

Thanks but I want the week to increment by one each time I do this.... Can you adjust your code please?