Вот такая проблема камарады помогите кто может,дано две таблицы нужно сравнить названия продукции (столбик с названием) и если они совпадают то сравнить ячейки в которых указано их остатки и если и там всё совпало то в одной таблице закрасить другим цветом.ПРоблема в том что в макросах я бум бум

Может комуто приготится мы тут своими усилиями написали всётаки 2 макроса и один спосоп при помощи формул но он мне не нравится ,макросы вылаживаю:
1 макрос
Sub Ìàêðîñ1()
Dim kolvo As Double
Dim kolvo1 As Double
Dim count As Integer
Dim c As Range
count = 2

Sheets("OST").Select
For i = 1 To 30000
Range("A" & i).Value = Trim(Range("A" & i).Value)
Next i


For i = 10 To 30000
Sheets("1S").Select
str1 = Trim(Range("A" & i).Value)
If Range("B" & i).Value <> "" Then
kolvo = Range("B" & i).Value
Else
kolvo = 0
End If
If (str1 <> "") Then
If (str1 <> "Ñêëàä ÑÌ-11") Then
Sheets("OST").Select
Set c = ActiveSheet.Range("A1:B20000").Find(str1, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
o = Int(Mid(c.Address, 4, 10))
If Range("B" & o).Value <> "" Then
kolvo1 = Range("B" & o).Value
Else
kolvo1 = 0
End If
If kolvo <> kolvo1 Then
Sheets("RESULT").Select
Range("A" & count).Value = str1
Range("B" & count).Value = kolvo
Range("C" & count).Value = kolvo1
Range("D" & count).Value = kolvo - kolvo1
count = count + 1
End If
End If
End If
End If
Next i

End Sub


Второй макрос:
Sub Ìàêðîñ4()
'
' Ìàêðîñ4 Ìàêðîñ
' Ìàêðîñ çàïèñàí 21.03.2007 (administrator)
'

'
Dim i, k As Integer
Dim n_sr, n_nach, n_kon, s1c, kol1c, so, kolo As Long
Dim ask, rez As String
Dim st, dat_f, f_nam As String
Dim str, nstr, nst2 As String
Dim ost, nst, nst1 As Long
k = 3

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Sheets("Ëèñò2").Select

'st = "A5"
'i = 5
'Do While Range(st).Value <> ""
' Range(st).Select
' str = Range(st).Value
'' Range(st).Value = Trim(str)
' If Selection.Font.Size <> 10 Then
' str = i & ":" & i
' Rows(str).Select
' Selection.Delete Shift:=xlUp
' i = i - 1
' End If
'i = i + 1
'st = "A" & i
'Loop
'st = "B10"
'i = 10
'Sheets("Ëèñò1").Select
'Do While i < 25000'


' Set c = Cells.Find(What:="Ñêëàä ÑÌ-8", SearchOrder:=xlByRows, LookIn:=xlValues)
' 'c.Activate
' If Not c Is Nothing Then
' c.Activate
' nst = Mid(c.Address, 4)
' nst1 = nst + 1
' nstr = nst & ":" & nst1
' Rows(nstr).Select
' Selection.Delete Shift:=xlUp
' i = nst
' st = "B" & i
' Range(st).Select
' Else
' Exit Sub
' End If


' i = i + 1
' st = "C" & i
' Loop
Sheets("Ëèñò1").Select
i = 10
st = "C" & i
nst2 = "B" & i

Do While Range(nst2).Value <> ""
Range(st).Select
ask = Trim(Range(nst2).Value)
s1c = Range(st).Value
If s1c = "" Then s1c = 0
Sheets("Ëèñò2").Select
Set c = Cells.Find(What:=ask, SearchOrder:=xlByRows, LookIn:=xlValues)

If Not c Is Nothing Then
c.Activate
nst = Mid(c.Address, 4)
nstr = "C" & nst
so = Range(nstr).Value
If so = "" Then
Sheets("Ëèñò3").Select
st = "A" & k
nst2 = "B" & k
Range(nst2).Value = s1c
Range(st).Value = ask
st = "C" & k
Range(st).Value = 0
k = k + 1
Else
so = Round(so, 2)
End If

If s1c = so Then
nstr = "D" & nst
Range(nstr).Value = 1
Else
Sheets("Ëèñò3").Select
st = "A" & k
nst2 = "B" & k
Range(nst2).Value = s1c
Range(st).Value = ask
st = "C" & k
Range(st).Value = so
k = k + 1
End If

Else
Sheets("Ëèñò1").Select
Range(st).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
nst2 = "B" & i
f_nam = Range(nst2).Value
Sheets("Ëèñò3").Select
st = "A" & k
nst2 = "B" & k
Range(nst2).Value = s1c
Range(st).Value = f_nam
st = "C" & k
Range(st).Value = so
k = k + 1
End If

i = i + 2
st = "C" & i
nst2 = "B" & i
Sheets("Ëèñò1").Select
so = 0
s1c = 0
Loop
Sheets("Ëèñò3").Select
i = 3
st = "B" & i
nst2 = "A" & i

Do While Range(nst2).Value <> ""
Range(st).Select
s1c = Range(st).Value
If s1c = 0 Then GoTo 1
Sheets("Ëèñò2").Select
Set c = Cells.Find(What:=s1c, SearchOrder:=xlByRows, LookIn:=xlValues)

If Not c Is Nothing Then
c.Activate
nst = Mid(c.Address, 4)
nstr = "E" & nst
Range(nstr).Value = 1
Sheets("Ëèñò3").Select
nst2 = "D" & i
Range(nst2).Value = 1
Else

Sheets("Ëèñò3").Select
st = "B" & i
Range(st).Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
End If
1
i = i + 1
st = "B" & i
nst2 = "A" & i
Sheets("Ëèñò3").Select
so = 0
s1c = 0

Loop

End Sub