ممكن شرح للكود ده بعد اذنكم .
RR = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A" & RR & ":" & "s" & RR).AutoFill Destination:= _
.Range("A" & RR & ":" & "s" & RR + 1), Type:=xlFillDefault
.Range("A" & RR + 1 & ":" & "k" & RR + 1) = ""
RowIndex = .Cells(Rows.Count, "A").End(xlUp).Row
If RowIndex < 11 Then
RowIndex = 11