Something like

[vba]

For Each CeLF In Range("A2:A" & lastrow)
If CeLF.Offset(0, 16) = "" And CeLF.Offset(0, 16).Interior.ColorIndex = 34 Then ' Burada 34 yerine sar? bir renk istiyorsan: 6 - 27 - 36 veya 44 de?erlerinden birini se?ip kodu d?zenlemen gerekli olacak. Renk de?erlerinin renk kar??l?klar? i?in ?stte verdi?im kodu ?al??t?rabilirsin.
CeLF.Resize(, 32).Copy S2.Cells(L, 1) 'CeLF.Resize(, 25).Copy S2.Cells(L, 1)
InvoiceCounter = InvoiceCounter + 1
L = L + 1
End If
Next CeLF
S2.Columns("A:AE").ColumnWidth = 15 'S2.Columns("A:Y").ColumnWidth = 15
S2.Rows("1:15").RowHeight = 15.75
 S2.[A1].Select
'
Select Case ETACounter
Case Is < 2
Prcss = "Process"
[/vba]