kshitij_dch
Active Member
- Joined
- Apr 1, 2012
- Messages
- 362
- Office Version
- 365
- 2016
- 2007
- Platform
- Windows
If Not ID Is Nothing Then
sh2.Range("I" & ID.Row) = sh1.Range("J" & c.Row) .paste
End If
Next
sh2.Range("I" & ID.Row) = sh1.Range("J" & c.Row) .paste
End If
Next