My problem is now:

Dim WS1 As Worksheet    Dim WS2 As Worksheet
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim c As Range


Application.ScreenUpdating = False
            Set WS1 = ThisWorkbook.Sheets("Tabelle1")
            Set WS2 = Workbooks(file).Sheets(file1)
            Set Rng1 = WS1.Range(WS1.Range("A5"), WS1.Range("A" & Rows.Count).End(xlUp))
            Set Rng2 = WS2.Range(WS2.Range("A2"), WS2.Range("A" & Rows.Count).End(xlUp))
            For Each c In Rng1
            On Error Resume Next
            Rng2.Find(What:=c).Offset(, 7).Resize(, 7).Copy Destination:=c.Offset(, 11)
            Err.Clear
            Next c
            Set WS1 = Nothing
            Set WS2 = Nothing
            Set Rng1 = Nothing
            Set Rng2 = Nothing
            Application.ScreenUpdating = True
Basically instead of pasting the value 11 columns to the right of c i need to:

Find the Column with File1 value in.
The value is then pasted where the c Row and the File1 Column intersect.

Any Ideas would be greatly appreciated..

Regards

JRidge