VBA to drag forumlas

[asjmoron]

Hi All.

I am 99% of the way through a project and I can not figure this part out.

basically I start with the below...

'Formulas
Range("L1").End(xlDown).Select
Selection.Copy

and from there I need it select whatever cell in L it lands on accross to R the drag the formulas in those cells to the last column with data in it (The cell will change as data is add to the sheet through an auto fill process so I can not say it will be L15 for example as it will be different with every update).

I have tried loads of things but keep getting it wrong so would be very greatful for any assistance!

As always, thanks so much for reading this and for any help.

 

[asjmoron]

I have gt one step further by changing the below..

'Formulas
Range("L1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

but still need to work out how to drag this to the last column

 

[asjmoron]

This is a first for me! No replies.

just incase anyone else has this issue, I have managed to suss the code out (albeit it may be a rather round aboutway to do it!) and wanted to share it.

basically, I could not find a way to select part of a row based on the first empty cell and drag the whole selection down so I used a series of repetitive vba to find each cell then a call to 'Sub Filld()'

The first part went like this....

'Formulas
Range("L1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("M1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("N1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("O1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("P1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("Q1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

Range("R1").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select

Call filld

The this is the Filld() part

Sub filld()
  If IsEmpty(ActiveCell) Then Exit Sub
  Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1)).FillDown
End Sub

 

[Fluff]

How about

Sub asjmoron()
    Dim UsdRws As Long
    
    UsdRws = Range("A" & Rows.Count).End(xlUp).Row
    Range(Range("L" & Rows.Count).End(xlUp), Range("L" & UsdRws)).Resize(, 7).FillDown
End Sub

Ths uses col A to determine how far to fill down the formula, but that can easily be changed