Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value ws.Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value