Sub Add_Rows()
Dim ws1 As Worksheet: Set ws1 = Sheets("Client Data")
Dim ws2 As Worksheet: Set ws2 = Sheets("Networth")
Dim lRow As Long
Dim str As String
Dim rFind As Range
If Selection.Rows.Count > 1 Then
MsgBox ("You can only have 1 row selected")
Exit Sub
End If
lRow = Selection.Row
str = ws1.Range("A" & lRow).Offset(-1).Value
Rows(lRow).Insert Shift:=xlDown
Set rFind = ws2.Range("A1:A" & ws2.Range("A" & Rows.Count).End(xlUp).Row).Find(What:=str, LookIn:=xlValues, LOokAt:=xlWhole)
If Not rFind Is Nothing Then
rFind.Offset(1).EntireRow.Insert Shift:=xlDown
rFind.Resize(2).EntireRow.FillDown
End If
End Sub
Bookmarks