Autofill base on Active Cell and Autofill by row count of another sheet

Sorry it didnt.

In sheet 1 it suppose to start at A35 and autofill it downwards (data to be copied which is also the data of the last row = A35).
Instead it messes up A33 and A34.

Please advise, thank you very much!

Maybe:

Please Login or Register  to view this content.

I dont understand why instead of autofilling downwards, it goes upwards.

Sheets("1").Select
Range("A1").End(xlDown).Select
Selection.AutoFill Destination:=Range(Cells(activecell.row,1), Cells(numRows, 1)), Type:=xlFillDefault

while it suppose to autofill my cell from A35 to A36 A37 and so on...
it autofills upwards causing my A33 and A34 cells to change.

The current code I'm using.

Sheets("3").Select
Range("A1").Select
numRows = Range(Selection, Selection.End(xlDown)).Rows.Count

Sheets("1").Select
Range("A1").End(xlDown).Select
Selection.AutoFill Destination:=Range(Cells(ActiveCell.Row, 1), Cells(numRows, 1)), Type:=xlFillDefault

Thanks guys, pls help..