Én még ilyet sem láttam, de lehet ez az én hibám:

 

usor = usor = ActiveSheet.UsedRange.Rows.Count

 

Ez viszont hacsak nem direkt csináltad nem jó:

 

For i=3 to DB

...

i=i+1

Next

 

A for változóját extrém ritkán manipuláljuk a for cikluson belül.  

Simán lehet, hogy az i a 4 értéket veszi fel és a Next nem tud mit kezdeni vele.  Ha kettesével akarsz lépkedni a For-ban akkor használd a Step-et

 

For i=1 to DB step 2

 

...

 

Next