VBA søg value fra cell sheet1 søg i sheet2 plus en i venstre celle fra den fundet value

He folkens er ny i vba og har et script jeg ikke kan få til at virke som jeg håber der er en der kan hjælpe med at gøre nemmest muligt.

Jeg har i sheet1 i H6 en formala der henter en internet adresse

hvordan søger jeg efter den internet adresse i sheet2 og hvis fundet går en celle venstre op plus 1

eksempel: Søg efter H6(sheet1) søg i Sheet2 hvis fundet offset(0,-1)
for så i ative celle value + 1 den kode jeg er kommet frem til og som ikke virker er :

Sub OK()


        Dim SearchString As String
        Dim SearchRange As Range, cl As Range
        Dim FirstFound As String
        Dim sh As Worksheet

        ' Set Search value
Sheets("Sheet1").Select
        SearchRange = "H6"
        Application.FindFormat.Clear
        ' loop through all sheets
        Sheets("Sheet2").Select
            ' Find first instance on sheet
            Set cl = sh.Cells.Find(What:=SearchString, _
                After:=sh.Cells(1, 1), _
                LookIn:=xlValues, _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False, _
                SearchFormat:=False)
            If Not cl Is Nothing Then
                ' if found, remember location
                FirstFound = cl.Address
                ' Plus one in found cell
                Do
                ActiveCell.Offset(0, -1).Select
                ActiveCell.Value = ActiveCell.Value + 1


    Set cl = sh.Cells.FindNext(After:=cl)
                    ' repeat until back where we started
                Loop Until FirstFound = cl.Address
            End If
        Next
    End Sub