Excel VB Selection Simplification Question

[swl681]

I am new to Excel VB and have managed to get my code to work, but it seems I could simplify it and also complete the next part of the project as part of the simplification. The part I have working is dragging the formulas in columns T through Y down to the next blank row on the sheets that need it. The primary issue I am having is by not counting the rows I am unable to drag the formula in column C down one additional row. Below is what I have so far and thanks in advance for your time and patience!

Sub Update_Sheets()


'Selects the required sheet
Sheets("Sales Summary").Select


'Moves selction colums needing update
Range("T2").Select


'Moves selection to last entry
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select


'This works as long as the active cells is selected
Range(Selection.Offset(1, 0), Selection).FillDown

'Selects the required sheet
Sheets("Other Sales Summary").Select


'Moves selction colums needing update
Range("T2").Select


'Moves selection to last entry
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select


'This works as long as the active cells is selected
Range(Selection.Offset(1, 0), Selection).FillDown


End Sub

 

[Fluff]

Hi & welcome to MrExcel.
Is this what you want

Sub Update_Sheets()
   With Sheets("Sales Summary")
      .Range("T" & Rows.Count).End(xlUp).Resize(2, 6).FillDown
      .Range("C" & Rows.Count).End(xlUp).Resize(2).FillDown
   End With
   With Sheets("Other Sales Summary")
      .Range("T" & Rows.Count).End(xlUp).Resize(2, 6).FillDown
      .Range("C" & Rows.Count).End(xlUp).Resize(2).FillDown
   End With
End Sub

 

[swl681]

Unfortunately, that does not work but it is much more efficient then what I had been using, and I think the failing is on my part. I failed to mention that the data is all contained within a table on the respective sheets. When I use the provided VBA, it adds the data at the bottom of the table. It is adding it to the correct columns but the rows are outside of the table.

 

[Fluff]

If it's a table then the formulae should fill down automatically, whenever you add a new row.

 

[swl681]

I am still unable to get the VBA to work within the table. I think that I need to use the ListObjects("Table4") to get to the correct column and row in the sheet otherwise it does everything outside of the table. I am struggling with the correct syntax to get it working. Your help is appreciated!