maalesef resim eklenmemiş
sorunuzu tam olarak anlamadım, biraz daha açıklayabilir misiniz?
mesela ana dosyayı açtınız daha önce veri girilmiş 7 satır var kod ne yapacak?
daha önce veri girilmişse, bu eski veriler silinecek mi yoksa yeni veriler eski verilere mi eklenecek?

    ws.Range("A2:K" & Rows.Count).Clear kodunu:
    ws.Range("A3:K" & Rows.Count).Clear

lrc = wsa.Cells(1, Columns.Count).End(xlToLeft).Column kodunu:
lrc = wsa.Cells(2, Columns.Count).End(xlToLeft).Column

değiştirip dener misiniz?