Macro to copy and paste info into specific cell

Hi,
Can anyone help me w/ a macro that will take the comments from "Sheet 2" and paste it into the corresponding cell on the "Notes" tab for the specific name and month indicated on "Sheet 2"?

Thank you so much!

Place this macro in the code module for worksheet Sheet2. First fill in the name and month and then the Comments. When you exit the Comments cell, it will be copied to sheet "Notes".

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim bottomA As Integer
    bottomA = Sheets("Notes").Range("A" & Rows.Count).End(xlUp).Row
    Dim rowRng As Range
    Dim colRng As Range
    For Each rowRng In Sheets("Notes").Range("A3:A" & bottomA)
        For Each colRng In Sheets("Notes").Range("B2:M2")
            If rowRng = Sheets("Sheet2").Range("E1") And colRng = Sheets("Sheet2").Range("E2") Then
                Target.Copy
                Sheets("Notes").Cells(rowRng.Row, colRng.Column).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
            End If
        Next colRng
    Next rowRng
    Application.ScreenUpdating = True
End Sub

Hi Jane. The way it works in the sample file I attached is that the copying of the comments happens automatically when you fill in cell B2 in "Sheet2" and exit the cell. This saves you from having to click a button. If you don't want the copying to happen automatically, then place the following code into a regular module, create your button and assign the macro to it. If you choose to use a button, delete the macro from the worksheet code module otherwise the copying will continue to happen automatically.

Sub CopyComments()
    Application.ScreenUpdating = False
    Dim bottomA As Integer
    bottomA = Sheets("Notes").Range("A" & Rows.Count).End(xlUp).Row
    Dim rowRng As Range
    Dim colRng As Range
    For Each rowRng In Sheets("Notes").Range("A3:A" & bottomA)
        For Each colRng In Sheets("Notes").Range("B2:M2")
            If rowRng = Sheets("Sheet2").Range("E1") And colRng = Sheets("Sheet2").Range("E2") Then
                Sheets("Sheet2").Range("B2").Copy
                Sheets("Notes").Cells(rowRng.Row, colRng.Column).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
            End If
        Next colRng
    Next rowRng
    Application.ScreenUpdating = True
End Sub