Unable to Update a Row in a Table through VB

[swl681]

I have a spreadsheet that contains a table, and I am working with a VB macro to update a row each week. The below works for the correct columns and rows, but it updates the columns outside of the table. I have tried with no success to utilize ListObjects("Table4") to make the range available within the table but have failed miserably. Any direction would be much appreciated!


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

 

[mrshl9898]

Is this working?

Sub Update_Sheets()


Dim lastrow As Long


With Sheets("Sales Summary")
lastrow = .ListObjects("Table4").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range("T" & lastrow).Resize(2, 6).FillDown
.Range("C" & lastrow).Resize(2).FillDown
End With


End Sub

 

[swl681]

No, when running the above code, it inserts a row at the bottom of the table above the totals row.

This is the code I started with and it does work but I am trying to simplify and remove the selects.

Sub Update_Sheets()


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


'Moves selection columns 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("Seasonal Sales Summary").Select


'Moves selection columns 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

 

[swl681]

Got it to work with the below code, thank you for your help!

Sub Update_Sheet()

With Sheets("Sales Summary")
​

.Range("T2").End(xlDown).Resize(2, 6).FillDown​

.Range("T2").End(xlDown).Offset(0, -17).FillDown​

End With​

End Sub