help adjusting code delete empty rows based on condition from sheet1 to sheet2

[maghari]

Option Explicit

Sub TransferData()
Dim TargetRow As Long
Dim LastRow As Long
Dim Rw As Long
Dim rSource As Range
 
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
TargetRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Offset(1).Row
  
For Rw = 2 To LastRow
   Set rSource = Sheet1.Range(Sheet1.Cells(Rw, 1), Sheet1.Cells(Rw, 5))
   If rSource.Cells(1) <> "" Then
      rSource.Copy
      Sheet2.Cells(TargetRow, "A").PasteSpecial Paste:=xlPasteValues
      Sheet2.Cells(TargetRow, "A").PasteSpecial Paste:=xlPasteFormats
      TargetRow = TargetRow + 1
   End If
Next Rw
End Sub

it does work code but it still simple problems some data of cells it doesn't show in sheet2

date and order no and value i no know why? you can check my file and tell me what happen