Public Sub FindIt() Dim aRange As Range Set aRange = Range("A1:A12").Find(what:="Jun",LookAt:=xlWhole, LookIn:=xlValues) If aRange Is Nothing Then MsgBox "Data not found" Exit Sub Else aRange.Resize(1, 3).Copy Destination:=Range("G1") End If End Sub