>>739
Dim FirstB As Long
FirstB = Range("B1").End(xlDown).Offset(1).Row

For wRow = FirstB …