Script til at hente data fra sekundært ark, når felt er tomt!

Ups - så lige svar: http://www.eksperten.dk/spm/810794
Jeg arbejder lige lidt med dette i første omgang!!!

Løst ved:
Sub GetFromExternalSheet()

Sheets("output").Activate
col = ActiveCell.Column
rk = Cells(65536, col).End(xlUp).Row
For i = rk To 1 Step -1
  If Not (IsEmpty(Cells(i, 1))) Then
    If IsEmpty(Cells(i, 2)) Or IsEmpty(Cells(i, 3)) Then
      Set tmpObj = LookUp(Cells(i, 1))
      If IsEmpty(Cells(i, 2)) Then
        Cells(i, 2) = tmpObj.Cells(1, 5).Value
      End If
      If IsEmpty(Cells(i, 3)) Then
        Cells(i, 3) = tmpObj.Cells(1, 6).Value
      End If
    End If
  End If
Next

End Sub

Function LookUp(strWord)
  With Worksheets("input").Range("a1:a50000")
    Set c = .Find(strWord, LookIn:=xlValues)
    If Not c Is Nothing Then
        Set tmpWord = c.EntireRow.Cells
    End If
    Set LookUp = tmpWord
  End With
End Function