L
Luc
This macro worked until now.
Now the following code is skipped.(ActiveCell.Offset(1, 0).Select)
'endzone address = $E$100
'activecell.address = $E$10
'activecell.value = "" (empty)
activecell.offset (2,0).select
Do Until ActiveCell.Value <> "" Or ActiveCell.Address >=
Range(EndZone).Address
ActiveCell.Offset(1, 0).Select
Loop
activecell.offset (3,0).select
Now the following code is skipped.(ActiveCell.Offset(1, 0).Select)
'endzone address = $E$100
'activecell.address = $E$10
'activecell.value = "" (empty)
activecell.offset (2,0).select
Do Until ActiveCell.Value <> "" Or ActiveCell.Address >=
Range(EndZone).Address
ActiveCell.Offset(1, 0).Select
Loop
activecell.offset (3,0).select