Sub Makro1()
'
' Makro1 Makro
'
'
If ActiveCell.Value = Empty Then
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End If
End Sub