lastcolumn = Sheet3.Cells(1, Sheet3.Columns.Count).End(xlToLeft).Column Sheet3.Range("B17:" & lastcolumn & "17").Formula = "=SUMIFS($H:$H,$B:$B,B$1)"
не работает: (
Как сказал QHar, используйте
Sheet3.Range(Sheet3.Cells(17, 2), Sheet3.Cells(17, lastcolumn)). ...