How to add lastCol and lastrow to macro

I tried

With Sheets("360-Tableau")
  lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
  lastRow = .Cells(.Rows.Count, lastCol).End(xlUp).Row
  .Range(.Cells(1, 1), .Cells(lastRow, lastCol)).AdvancedFilter Action:=xlFilterCopy, _
      CopyToRange:=Sheets("360").Range("A1"), _
      Unique:=False
End With

but does not work.

I can get this to work

Sub CopyToOtherSheet2()

        With Sheets("Comments-Tableau")
        lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With

Sheets("Comments-Tableau").Range("A1:E" & lastRow).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Comments").Range("A1"), _
Unique:=False

Application.DisplayAlerts = False
    Sheets("Comments-Tableau").Delete
Application.DisplayAlerts = True

End Sub

Clearly not getting the Column part correct