Select row to last column with data and autofill to last row

[jocker_boy]

Hello,

I would like to select cell "E6" to last column with data.
Then autofill to the last row with data in column "D".

I'm new to VBA.

Many thanks for the help.

Gonçalo

 

[Joe4]

See if this does what you want:

Sub MyCopyMacro()

    Dim lr As Long
    
'   Find last row in column D with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
    
'   Populate column E with formula to pull value from column D
    Range("E6:E" & lr).FormulaR1C1 = "=RC[-1]"
    
End Sub

 

[jocker_boy]

See if this does what you want:

Sub MyCopyMacro()

    Dim lr As Long
   
'   Find last row in column D with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
   
'   Populate column E with formula to pull value from column D
    Range("E6:E" & lr).FormulaR1C1 = "=RC[-1]"
   
End Sub

thanks,

It's similar to that. But it is not the column "E" that i want to fill dow. Is the entire line that i select in first place:
I select E6 to the last column with data, in my excel file is CJ6, but the number of columns is always changing.

I found this:

Sub Macro2()
Range("E6:CJ" & Range("D" & Rows.Count).End(xlUp).Row).FillDown
End Sub

But i would like to make generic and not fix the column "CJ", but instead, the last column with data in row 6.

Thanks.

Gonçalo

 

[Joe4]

OK, that was definitely not communicated clearly by your original post.

Try this:

Sub MyCopyMacro()

    Dim lr As Long
    Dim lc As Long
    
'   Find last row in column D with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
    
'   Find last column in row 6 with data
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
    
'   Copy E6 to last column down for all rows
    Range(Cells(6, "E"), Cells(6, lc)).Copy Range(Cells(7, "E"), Cells(lr, "E"))
    
End Sub

If that still does not do what you want, please post examples of your data and expected results for us to see.
That may help clarify any confusion.

 

[jocker_boy]

OK, that was definitely not communicated clearly by your original post.

Try this:

Sub MyCopyMacro()

    Dim lr As Long
    Dim lc As Long
   
'   Find last row in column D with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
   
'   Find last column in row 6 with data
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
   
'   Copy E6 to last column down for all rows
    Range(Cells(6, "E"), Cells(6, lc)).Copy Range(Cells(7, "E"), Cells(lr, "E"))
   
End Sub

If that still does not do what you want, please post examples of your data and expected results for us to see.
That may help clarify any confusion.

Sorry for the bad explication.
It is working perfect.

Many thanks

 

[Joe4]

You are welcome.

Yes, sometimes things can be hard to explain, and many times an image or two can go a long way in "showing" us what you are looking for.

For future reference, note that MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

There is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.