vba to autofill

[Diving_Dan]

Hi all,

I'm having a nightmare trying to autofill. I have tried recording a macro to find the solution but it isn't giving me the right answer.

I am wanting to go to the last row with data and then autofill down 1 row. I have come up with the below but it doesn't work properly.

Any help is appreciated as always.

Cells(Rows.Count, 1).End(xlUp).Select
    
Selection.AutoFill Destination:=Range("A5:A6"), Type:=xlFillDefault

 

[Fluff]

What do you have in the cell?

 

[Diving_Dan]

It is a mixture of letters and numbers. 11XX/1

It is the number at the end that needs to increase by 1, the 11XX is to stay the same. If i drag down the cell it autofills correctly but can't work out the vba.

 

[Fluff]

Ok, how about

   With Range("A" & Rows.Count).End(xlUp)
      .AutoFill Range(.Address).Resize(2)
   End With

 

[Diving_Dan]

Does exactly what I need thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.