Per l' altro problema: prima inserisci la riga, poi copia i dati; potresti probabilmente usare anche
- Codice: Seleziona tutto
If .Cells(a, "E").Value <> "" And .Cells(a, "E").Value > .Range("L1").Value Then
.Range("D" & a & ":H" & a).Copy 'brutto codice a vedersi
.Range("K1:O1").Insert Shift:=xlDown '
.Range("K1:O1").Value= Range("D" & a & ":H" & a).Value
End If
Application.CutCopyMode = False