Dim cell As Range
...
...
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1
'Range("AQ3").Value = Count <---- Good for first cell only

For Each cell In Range("AQ3:AQ6")<--- Want to Loop to next empty cell
If cell.Value < "" Then cell.Value = Count
Next