كود نسخ بيانات vba excel

Code for copy data to last written row 

Sub CopyFilledCells()
  Dim lngLastRow As Long

  Sheet2.UsedRange.Clear
  With Sheet1
   lngLastRow = .Range("I2").End(xlDown).Row
   .Range("B3:I" & lngLastRow).Copy Destination:=Sheet2.Range("A1")
  End With

End Sub