Hi Bilal

Welcome to the Forum!!

You don't tell us what line of Code is blowing out. Based on the posted Code I'd suggest these changes:

Dim c2 As Long
and
c2 = 32000