The information gathered is for Communitic International to ensure the sending of the newsletter.
The information will be used subject to terms and conditions, for advertising purposes.
You reserve the right to access and change your personal data, aswell as the right to request its deletion within the limits permitted by law.
You can also review your targeting options. For more information, click this privacy policy
.
Thanks
Vijay
thanks
Gaurav
Dim LastRow_1 As Integer
Dim LastCol_1 As Integer
Dim Data_1 As Range
Dim LastRow_2 As Integer
Dim LastCol_2 As Integer
Dim Data_2 As Range
Dim Sh_1 As Worksheet
Dim Sh_2 As Worksheet
Dim X As Long
Dim Y As Long
Dim C_1 As Range
Dim C_2 As Range
Set Sh_1 = ActiveWorkbook.Sheets("Sheet1")
Set Sh_2 = ActiveWorkbook.Sheets("Sheet2")
LastRow_1 = Sh_1.Range("A200").End(xlUp).Row
LastCol_1 = Sh_1.Range("O200").End(xlToLeft).Column
Set Data_1 = Sh_1.Range("A1").Resize(LastRow_1, LastCol_1)
LastRow_2 = Sh_2.Range("A200").End(xlUp).Row
LastCol_2 = Sh_2.Range("O200").End(xlToLeft).Column
Set Data_2 = Sh_2.Range("A1").Resize(LastRow_2, LastCol_2)
For Each C_1 In Data_1
For Each C_2 In Data_2
If C_1.Value <> C_2.Value Then
C_1.EntireRow.Copy Destination:= _
Sh_2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next C_2
Next C_1
End Sub