AutoFill to Last row of Data

[JeezisPope]

Hey guys,
I'm new at programming with vba and I have this annoying problem where I want to Autofill to Last row of data, but i don't know how. I have to select from A4 to K4 and then Autofill it, but the amount of data is indefinite...

I have this code so far, so if anyone can help pls, would be great... I do a little researching, and i found some ways to do it, but i couldn't understand... Help pls

Sub lastrow()

Range("A4:K4").Select
Selection.AutoFill Destination:=Range("A4:K" & Range(Rows.Count, "K").End(xlUp).Row)
End Sub

 

[Joe4]

Welcome to the Board!

You want to go down to the last row of data found in column L, so try:

Sub lastrow()
    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Range(Rows.Count, "L").End(xlUp).Row)
End Sub

 

[JeezisPope]

Welcome to the Board!

You want to go down to the last row of data found in column L, so try:

Sub lastrow()
    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Range(Rows.Count, "L").End(xlUp).Row)
End Sub

Hey, I think the code is good, but i don't know why it appears the runtime error 1004,
I tried to set the range as a variable, but it didn't work either. I don't know what's happening there, can u help me pls?

 

[Joe4]

Whoops, I copied your formula and missed an error you had in there.
It should be:

    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Cells(Rows.Count, "L").End(xlUp).Row)

not

    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Range(Rows.Count, "L").End(xlUp).Row)

So it should be:

Sub lastrow()
    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Cells(Rows.Count, "L").End(xlUp).Row)
End Sub

 

[JeezisPope]

Whoops, I copied your formula and missed an error you had in there.
It should be:

    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Cells(Rows.Count, "L").End(xlUp).Row)

not

    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Range(Rows.Count, "L").End(xlUp).Row)

So it should be:

Sub lastrow()
    Range("A4:K4").AutoFill Destination:=Range("A4:K" & Cells(Rows.Count, "L").End(xlUp).Row)
End Sub

thanks!! it worked perfectly

 

[Joe4]

You are welcome.

I hope it makes sense.
If not, feel free to ask any questions.