This should do. Just modify to fit your range conditions

With Selection
If Selection.Font.Bold = True And _
Selection.Font.ColorIndex = 1 Then
MsgBox "Conditions met"
End If
End With
End Sub


Egon wrote:
Ok, So I'm taking the advice and just doing a copy paste per line.

What I'm working on now is trying to figure out how to make the
decision wether to copy or not based on the fact that the cell contents
are in Black Bold Text.

Can anyone help?

TIA
E