Loop for vba macro from a specific column to the last column with data

Originally Posted by StephenR

Could you post a workbook so we can see your set up?

Thank you for your response, StephenR.

Do you mean anything like this?

Worksheets("NUMBER").Select

startt = Range("B2")

'Selection.End(xlToRight).Select

'endd = ActiveCell.Column

Worksheets("Sheet1").Select
'endd = Cells(1, Cells.Columns.Count).End(xlToRight).Column

For i = 2 To 25
totalnumber = Range(i, 1)

For j = 3 To endd

totalnumber = Range(i, 1)



Range(i, j) = 160

totalnumber = totalnumber - 160


If totalnumber < 160 Then
If totalnumber > 0 Then

Range(i, j) = totalnumber
Else
Range(i, j) = 0
End If
End If



Next j
Next i

End Sub