MS Excel

Sub Sumar()
Dim D(), Pole(1 To 103, 1 To 4), RiadokD As Long, Riadok As Long

'Načítanie všetkých údajov z listu do poľa
ReDim D(1 To 120, 1 To 20)
D = ActiveSheet.Range("C20:V150").Value2

'Kopírovanie potrebných hodnôt do výsledkového poľa, s posunom cez medzery v zdroji
While Riadok < 103
Riadok = Riadok + 1
Select Case Riadok
Case 37: RiadokD = RiadokD + 10
Case 78: RiadokD = RiadokD + 9
Case Else: RiadokD = RiadokD + 1
End Select

Pole(Riadok, 1) = D(RiadokD, 1): Pole(Riadok, 2) = D(RiadokD, 5): Pole(Riadok, 3) = D(RiadokD, 10): Pole(Riadok, 4) = D(RiadokD, 20)
Wend

'Zápis nových údajov do listu Inventár a filtrovanie
With wsInventar
.Range("A9:D108").Value2 = Pole
.Range("A8:D108").AutoFilter Field:=1, Criteria1:="<>"
End With

If Range("I1").Value = "" Then
Range("I1").Value = Format(Date, "mmmm")

End If

End Subcitovat