i am trying to find a month on a dat sheet to paste the value of a cell from
my totals sheet. i cant figure it out.

any help would greatly appreciated

Public Sub InsuranceForward(ByVal Month As String)
Dim wslist As Worksheet 'Worksheet with list
Dim rngToSearch As Range
Dim rngfound As Range

'Edit to your worksheet name
Set wslist = wksData
Month = ActiveSheet.Range("B5")
Set rngToSearch = wksData.Range("AF2:Af13")

Set rngfound = rngToSearch.Find(What:=Month)

wksTotals.Range("I31").Copy Destination:=rngfound.Offset(0, 1)

End Sub