Hello All,
Sub Find_ManHours()
Dim Fnd As Range
Set Fnd = Range("A:A").Find("MAN-HOURS:", , , xlWhole, , , False, , False)
If Not Fnd Is Nothing Then
Intersect(Range("4:5000"), Fnd.EntireColumn).Copy
Range("G4").PasteSpecial Paste:=xlPasteValues
End If
End Sub...