[IvanVk]

Autor gorkix

i to bi bilo riješenje za moje pitanje....

Probaj ovaj kod (primjer imaš ovdje)

Option Explicit

Sub Pribroji()
    Range("B5:D23").Select
    Selection.Copy
    Range("H5").Select 'prva ćelija u koju se pribrajaju brojevi iz B,C i D stupaca)
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("B5").Select
End Sub