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