I have this code:
While Not (IsEmpty(Selection))
pointer.Offset(0, 1).Formula = pointer.Offset(0, 1).Formula & "+sumif('" & sourcesheet & "'!" & chr(columnfinder)+64 & ":" & chr(columnfinder)+64 & "," & pointer.Value & ",'" & sourcesheet & "'!" & chr(Selection.Value)+64 & ":" &...