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