Autofill / Filldown

[SpaceCowboy]

Hi,

I'm pretty new to VBA, learning little bits and using existing code to get me through situations over past year; I am however stumped at something I am currently trying to do and hope that some kind person here will know the answer.

I am trying to Auto Fill or Fill Down the contents of the currently active cell down to the next cell that has any data in it. For example I am in cell A1 which has data in it, cells A2-A14 are empty, cell A15 is not. I'm trying to copy the contents of A1 down thru A15. I managed to do it once but then I made a schoolboy error and closed the file before it was saved and I cant for the life of me work out how I did it. Any help would be greatly appreciated. I have the code and example spreadsheet if it helps.

Many thanks,
Moz

 

[VoG]

Try

ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown))

 

[njimack]

Welcome to the Board.

There are several ways of achieving this, such as:

Range("A1").Copy Range(Range("A2"), Range("A2").End(xlDown).Offset(-1))

 

[SpaceCowboy]

Try

ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown))

You sir, are an absolute star! I spent a whole day on this last Friday, I should have come here first. Still, all part of the learning curve I guess.

Very much appreciated.

 

[Sektor]

Sub AutoFilling()
    Dim rngLast As Range
    Set rngLast = Range("A2").End(xlDown).Offset(-1, 0)
    Range("A1").AutoFill Range("A1", rngLast)
End Sub