Scroll down to a certain spot for 3 columns A, F & G

[zone709]

I cleaned up as much as I can for now. I need to edit the scroll and have it end at the last row number that Column C has data in. Instead of going down to 50 as I have now.

So basically trying to scroll down columns A F & G to end when column C has data last. For example last data in column C is in row 18. So the scroll would end at row 18.

Sub MacroScroll()
    Range("A2").Copy
    Range("A3").Select
    ActiveSheet.Paste
    Range("A2:A3").AutoFill Destination:=Range("A2:A50"), Type:=xlFillDefault  '<--- Scroll
    Range("A2:A50").Select
    Range("F2").Copy
    Range("F3").Select
    ActiveSheet.Paste
    Range("F2:F3").AutoFill Destination:=Range("F2:F50"), Type:=xlFillDefault '<--- Scroll
    Range("F2:F50").Select
    Range("G2").Copy
    Range("G3").Select
    ActiveSheet.Paste
    Range("G2:G3").AutoFill Destination:=Range("G2:G50"), Type:=xlFillDefault '<--- Scroll
    Range("G2:G50").Select
    Range("G1").Select
End Sub

 

[Rick Rothstein]

You can calculate your last row this way...

LastRow = Cells(Rows.Count, "C").End(xlUp).Row

then change "A2:A50" to "A2:A" & LastRow and then do the same for the other columns.

 

[zone709]

ok will do thanks for the help.

 

[zone709]

Can I ask you a small question on this. Can I use the same method if I want to copy a range. Range("C2:C50").Copy ("C2:C " & LastRow). By doing this it debugs. Probably a small fix or it wont work for copy?

Thanks

 

[Rick Rothstein]

Can I ask you a small question on this. Can I use the same method if I want to copy a range.

Range("C2:C50").Copy Range("C2:C " & LastRow).

By doing this it debugs. Probably a small fix or it wont work for copy?

You forgot the Range property name (shown in red above).

 

[zone709]

ok I see thanks for the help again