Sub tri_actions()
j = 96
For i = 4 To 31
If Not Range("G" & i) = "" Then
Range("AP" & j).Value = "- " &[B] Range("B" & i).Value [/B]& Chr(10) & Range("J" & i).Value
Range("AU" & j).Value = Range("N" & i).Value
Range("AV" & j).Value = Range("O" & i).Value
j = j + 4
End If
Next
j = 98
For i = 4 To 31
If Not Range("G" & i) = "" Then
Range("AP" & j).Value = Range("M" & i).Value
j = j + 4
End If
Next
Cells(7, 35).Select
'ActiveSheet.PrintOut
ThisWorkbook.Save
End Sub