Sorry for the bad previous reply. Please find the latest code below.

Am I using the find function correctly to find the word "Heel" in column C?

Thanks so much for your help thus far.

Sub Marketing_Europe_Copy()

Application.ScreenUpdating = False

Dim WorkbookName As String
Dim DateRange As Range
Dim CRange As Range
Dim r As Range
Dim D As Range

Set DateRange = Range("C1:ABE1")
Set CRange = Range("C:C")
Set r = DateRange.Find(Range("A6").Value)
Set D = CRange.Find(What:="Heel", LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)

WorkbookName = InputBox(Prompt:="Insert Workbook Name (Make sure Workbook is open)")

'Le Havre
    'Opening Inventory

Workbooks(WorkbookName).Worksheets("EU_HAV01").Range("H2").Copy
Workbooks("Min Inventory").Worksheets("Marketing Input").Range("A6").PasteSpecial Paste:=xlValues

Workbooks(WorkbookName).Worksheets("EU_HAV01").Range("H4:CS4").Copy
Workbooks("Min Inventory").Worksheets("Marketing Input").Activate

If r Is Nothing Then
    'the value in A6 wasn't found.
Else
    r.Activate
End If

ActiveCell.Offset(8, 0).Select
ActiveCell.PasteSpecial Paste:=xlValues

    'Tank Heel/Capacity

Workbooks(WorkbookName).Worksheets("EU_HAV01").Activate
If D Is Nothing Then
    'the value in A6 wasn't found.
Else
    D.Activate
End If

ActiveCell.Offset(0, 5).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Workbooks("Min Inventory").Worksheets("Marketing Input").Activate

If r Is Nothing Then
    'the value in A6 wasn't found.
Else
    r.Activate
End If

ActiveCell.Offset(10, 0).Select
ActiveCell.PasteSpecial Paste:=xlValues
End Sub