Insert new row automatically if a row on another sheet is populated

[YichGa]

Hello everybody,

if you could please help me It would be much appreciated.

On the forum I found a code on this link that works great on my first sheet.

Private Sub Worksheet_Change(ByVal Target As Range)   Dim rCell                       As Range
   Dim rDelete                     As Range
   If Not Intersect(Target, Range("RedBr").EntireColumn) Is Nothing Then


      Application.EnableEvents = False
      For Each rCell In Intersect(Target, Range("RedBr").EntireColumn).Cells


         If rCell.Row = Range("RedBr").Row - 1 Then
            If Len(rCell.Value) > 0 Then
               Range("RedBr").EntireRow.Insert
            Else
               If rDelete Is Nothing Then
                  Set rDelete = rCell
               Else
                  Set rDelete = Union(rDelete, rCell)
               End If
            End If
         ElseIf Len(rCell.Value) = 0 Then
            If rDelete Is Nothing Then
               Set rDelete = rCell
            Else
               Set rDelete = Union(rDelete, rCell)
            End If
         End If


      Next rCell
      If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
      Application.EnableEvents = True


   End If
End Sub

I need to have the same data on another sheet in a different currency so could somebody please edit the code so that it also ads a new row on the second sheet when it adds a new row on the first sheet. The data is formatted as tables inside the sheets.

Thank you in advance,

YichGa