Range("D" & lRow) = MID(sht.Range("A2"),8)
Jika di range A2 tidak pasti ada kata laporannya, bisa menggunakan fungsi replace, seperti yang sudah disampaikan dengan sangat jelas oleh Mr. Kid
Pada 02/08/2013 9:15, Ahmad Syaifullah Lubis menulis:
Range("D" & lRow) = sht.Range("A2")