If Not numlabels = 1 Then
Sheets("Labels").Range("A1:A3").AutoFill Destination:=Sheets("Labels").Range("A1:B3" & fillrow)
Detta gjorde att info som stod i A3, flyttades till B3, i resterande rader. Dock då endast den info in dessa som skapades, resten blev helt tomma.