Dim OBLAST1_paste1 As Range
Dim x As Integer
Set OBLAST1_paste1 = Worksheets("List16").Range("C8:C19")
x = 15
OBLAST1_paste1.Value = xcitovat
Dim x As Integer
Set OBLAST1_paste1 = Worksheets("List16").Range("C8:C19")
x = 15
OBLAST1_paste1.Value = xcitovat