This macro will copy the contents of Sheet2 to Sheet 1, omitting any formatting.
Option Explicit
Sub UpdateSheet1()
Dim ws2 As Worksheet, ws1 As Worksheet
Dim MyRng As Range, cell As Range, vFIND As Range
Set ws1 = ThisWorkbook.Sheets("Sheet1") 'edit this sheet name as needed
Set ws2 = ThisWorkbook.Sheets("Sheet2") 'edit this sheet name as needed
Set MyRng = ws2.Range("A2:A" & ws2.Range("A" & Rows.Count).End(xlUp).Row) '<-- assumes there is a Column header in Row 1
Application.ScreenUpdating = False
On Error Resume Next
For Each cell In MyRng
Set vFIND = ws1.Range("A:A").Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not vFIND Is Nothing Then
cell.EntireRow.Copy
vFIND.PasteSpecial xlPasteValues
Set vFIND = Nothing
Else
cell.EntireRow.Copy
ws1.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End If
Next cell
Application.ScreenUpdating = True
End Sub
Bookmarks