Sub CopyData()
Dim LR As Long, i As Long
With Sheets("B")
LR = .Range("J" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With .Range("J" & i)
If .Value > 0 Then .Offset(, -9).Resize(, 10).copy Destination:=Sheets("A").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
Next i
End With
End Sub