Autofill xldown offset three columns

[Bench]

Hi,

I've used the following formula many times to autofill to the last row based upon the adjacent column

Range("D5").AutoFill Destination:=Range("D5", Range("D5").Offset(0, -1).End(xlDown).Offset(0, 1))

For the code i'm currently writing Column's B & C will always have gaps in their data, therefore it needs to autofill based upon Column A, i've tried various modifications to try and accomplish but without success. Sure it's something fairly simple.

Your thoughts would be appreciated

Thanks

Ben

 

[Peter_SSs]

Range("A" & Rows.Count).End(xlUp)

This gives the bottom cell in column A. You should be able to use that with an Offset to achieve your goal,

 

[AlphaFrog]

This will fill column C based on Column A

Range("C5").AutoFill Destination:=Range("A5", Range("A5").End(xlDown)).Offset(0, 2)

Or this...

Range("C5").AutoFill Destination:=Range("C5", Range("A5").End(xlDown).Offset(0, 2))

 

[Bench]

Range("A" & Rows.Count).End(xlUp)

This gives the bottom cell in column A. You should be able to use that with an Offset to achieve your goal,

Thanks, i'm still quite a beginner with VBA so not sure exactly how to execute that in code

Been playing a bit more and have come up with the below, this is so close to working, just fills down one short of where it needs to be.

Range("D5").AutoFill Destination:=Range("D5", Range("D5").Offset(0, -1).End(xlDown).Offset(4, 1))

 

[Bench]

thanks for your help folks, this one worked for me in the end

Range("D5").AutoFill Destination:=Range("D5", Range("A5").End(xlDown).Offset(-1, 3))