Try this then

Code:
.Cells(Rx1, 3).Resize(,6).Value = var