Hej. Jag misstänker att jag inte förstår hur du vill göra i Inskrivningsbladet (vill du ha tomma rader om villkoret inte uppfylls?). Men lita atttt leka med:
Sub Makro1()
Dim rKontrollcell As Range
Dim rMål As Range
Set rMål = Application.Worksheets("Blad2").Range("A1")
' anger var du vill börja skriva in dina data.
For Each rKontrollcell In Application.Worksheets("Blad1").Range("D1:D1000")
' anger hur många rader i D-kolumnens du vill titta i.
If Not (rKontrollcell.Value = "") Then
If (rKontrollcell.Value = "Ett specifikt värde" Or rKontrollcell.Value = "Ett annat specifikt värde") Then
rMål.EntireRow.Range("A1").Value = Date
rMål.EntireRow.Range("B1").Value = rKontrollcell.EntireRow.Range("B1").Value
rMål.EntireRow.Range("C1").Value = rKontrollcell.EntireRow.Range("D1").Value
Set rMål = rMål.Offset(1, 0) ' flyttar ner målområdet en rad. OBS endast om den har hittat något i D-kolumnen
End If
End If
Next rKontrollcell
' Kolla nästa rad i D-kolumnen
End Sub