lastcolumn = Sheet3.Cells(1, Sheet3.Columns.Count).End(xlToLeft).Column
Sheet3.Range("B17:" & lastcolumn & "17").Formula = "=SUMIFS($H:$H,$B:$B,B$1)"
it is not working :(
lastcolumn = Sheet3.Cells(1, Sheet3.Columns.Count).End(xlToLeft).Column
Sheet3.Range("B17:" & lastcolumn & "17").Formula = "=SUMIFS($H:$H,$B:$B,B$1)"
it is not working :(
As QHar said, use
Sheet3.Range(Sheet3.Cells(17, 2), Sheet3.Cells(17, lastcolumn)). ...