Zastosowałem tą formułe do kolumny L, ale niestety z marnym skutkiem ; :?: Co to niby znaczy ? Formuła zmieniła sposób działania arkusza :D :?: Czy makro w ogóle nie ruszyło, czy tylko nie spełnia Twoich oczekiwań :?: Hej, przepraszam nie doprecyzowałem. Otóż w tej chwili poniższe makro wkleja wszystko tak jak oczekuję w pozostałe akrusze natomiast nie kopiuje wszystkich pozycji oznaczonych jako złom. Kopiuje i uwuwa jedynie zakres od A8 do b9 ( oraz inne kolumny- poprawnie). Chciałbym, aby makro działało tak samo w lecz w zakresie od wiersza 5 do wiersza 170, ale TYLKO w stosunku do pozycji wyświetlonych jako ZŁOM. Co ważne: aktualnie przy kopiowaniu z arkusza "Spis końcówek lotów" do "Zezłomowane" makro nie szuka pierwszego wolnego wiersza w skutek czego usuwa rekordy, które już w "Zezłomowane" się znajdują. Sub generujraport() ' ' generujraport Makro ' ' Klawisz skrótu: Ctrl+a ' Cells.Select ActiveSheet.Unprotect ActiveSheet.Range("$A$4:$N$9").AutoFilter Field:=12, Criteria1:="ZŁOM" Range("A8:B9").Select Selection.Copy Sheets("Zezłomowane").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Spis końcówek lotów").Select Range("D8:N9").Select Application.CutCopyMode = False Selection.Copy Sheets("Zezłomowane").Select Range("E3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(RC>0,""Za mała ilość"","""")" Range("L3").Select ActiveCell.FormulaR1C1 = "=IF(RC>0,""Za mała ilość"","""")" Range("L4").Select ActiveCell.FormulaR1C1 = "=IF(RC>0,""Za mała ilość"","""")" Range("L3:L4").Select Selection.AutoFill Destination:=Range("L3:L1003"), Type:=xlFillDefault Range("L3:L1003").Select ActiveWindow.ScrollRow = 969 ActiveWindow.ScrollRow = 3 Range("B3:L4").Select Selection.Copy Sheets("Raport złomowania").Select Range("A13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Spis końcówek lotów").Select Range("A8:F9").Select Application.CutCopyMode = False Selection.ClearContents Range("J8:J9").Select Selection.ClearContents Range("M8:N9").Select Selection.ClearContents ActiveSheet.Range("$A$4:$N$9").AutoFilter Field:=12 Range("1:4,G:I,K:L").Select Range("K1").Activate ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingRows:=True, AllowSorting:= _ True, AllowFiltering:=True Range("A1:B1").Select End Sub