Makro za umetanje novog reda ako je vrijednost celije jednaka "nesto"

Code:
c.EntireRow.Insert 

Code:
c.Offset(1).EntireRow.Insert

Code:
Sub UmetniRed(c As Range, strUslov As String)
' Ukoliko je u celiji c zadati tekst
' Umece red ispod
'
If c.Text = strUslov Then
  c.Offset(1).EntireRow.Insert
End If
End Sub

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("sheet1")
Select Case Target.Address
 Case ws.Range("vreme1").Address
   If ws.Range("vreme1") <> "3:30"Then UbaciRed ws.Range("vreme1").Offset(1, 0)
 Case ws.Range("vreme2").Address
   If ws.Range("vreme2") <> "4:00" Then UbaciRed ws.Range("vreme2").Offset(1, 0)
End Select
End Sub

Sub UbaciRed(RG As Range)
RG.EntireRow.Insert
End Sub

Code:

Sub Umetanje()
'Umetanje redova sa intervalom po pola sata
'gde nedostaju u nizu
'
'P.Jovanovic za elitesecurity.org

Dim r As Long, rstart As Long, rend As Long
Const cl As Integer = 1 ' Kolona koja se proverava
Dim c As Range          ' Tekuca celija
Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets(1) ' List na koji se umecu redovi
rstart = 1 ' Pocetni red
rend = sh.Cells(65535, cl).End(xlUp).Row ' Broj poslednjeg popunjenog reda

 For r = rend To rstart + 1 Step -1 ' petlja od kraja
    Set c = sh.Cells(r, cl)
    If c.Value - c.Offset(-1).Value > 0.021 Then '0.020833 je priblizno pola sata
       c.EntireRow.Insert
       c.Offset(-1).Value = c.Value - 0.0208333 ' upis vrednosti u prazan red
       c.Offset(-1, 1).Value = c.Value
       r = r + 1
    End If
 Next r
End Sub