Just noticed
somevar = Round(Range("B:" & (q + 2)).Value, 2)
Try
somevar = Round(Range("B" & (q + 2)).Value, 2)
Delete ":"

sorry I missed that first time round