Hi

A minor change to your code should do it. Change the sheet name to
suit.

Take care

Marcus

Sub InsuranceForward()

Dim wslist As Worksheet 'Worksheet with list
Dim RngToSearch As Range
Dim Rngfound As Range
Dim WksTotals As Worksheet
Dim Month As String
'Change the sheet name to suit.
Set WksTotals = Worksheets("Sheet1")
Month = Range("B5").Value
Set RngToSearch = Range("AF2:AF13")
Set Rngfound = RngToSearch.Find(What:=Month)
WksTotals.Range("I31").Copy Destination:=Rngfound.Offset(0, 1)

End Sub