Koda: Izberi vse
Sub Makro1()
Range("A76:H76").Select
Selection.Copy
Rows("76:76").Select
Application.CutCopyMode = False
Range("B76").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C76").Select
Selection.ClearContents
Range("D76").Select
Selection.ClearContents
Range("E76").Select
Selection.ClearContents
Range("G76").Select
Selection.ClearContents
Range("H76").Select
Selection.ClearContents
Selection.AutoFill Destination:=Range("H76:H92"), Type:=xlFillDefault
Range("H76:H92").Select
Range("B76").Select
Selection.AutoFill Destination:=Range("B76:B92"), Type:=xlFillDefault
Range("B76:B92").Select
Range("E76").Select
Selection.AutoFill Destination:=Range("E76:E92"), Type:=xlFillDefault
Range("E76:E92").Select
Range("G76").Select
Selection.AutoFill Destination:=Range("G76:G94"), Type:=xlFillDefault
Range("G76:G94").Select
Range("A76").Select
Selection.AutoFill Destination:=Range("A76:I76"), Type:=xlFillDefault
Range("A76:I76").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=-81
Selection.Clear
Rows("76:76").RowHeight = 9.75
Rows("76:76").Select
Next i
End Sub