[SyntheticDarkness]

Done it. I made it generate 6 numbers between 1-6, with a 1 second delay between each, no duplicates. Also, ph34r my sloppy coding skillz. ;3

Sub Macro6()
Application.OnTime Now + TimeValue("00:00:01"), "Rand1"
Application.OnTime Now + TimeValue("00:00:02"), "Rand2"
Application.OnTime Now + TimeValue("00:00:03"), "Rand3"
Application.OnTime Now + TimeValue("00:00:04"), "Rand4"
Application.OnTime Now + TimeValue("00:00:05"), "Rand5"
Application.OnTime Now + TimeValue("00:00:06"), "Rand6"
Range("G6").Select
End Sub

Sub Rand1()
Range("F1").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
End Sub

Sub Rand2()
Rand2:
Range("F2").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F2") = Range("F1") Then
GoTo Rand2
End If
End Sub

Sub Rand3()
Rand3:
Range("F3").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F3") = Range("F1") Or Range("F3") = Range("F2") Then
GoTo Rand3
End If
End Sub

Sub Rand4()
Rand4:
Range("F4").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F4") = Range("F1") Or Range("F4") = Range("F2") Or Range("F4") = Range("F3") Then
GoTo Rand4
End If
End Sub

Sub Rand5()
Rand5:
Range("F5").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F5") = Range("F1") Or Range("F5") = Range("F2") Or Range("F5") = Range("F3") Or Range("F5") = Range("F4") Then
GoTo Rand5
End If
End Sub

Sub Rand6()
Rand6:
Range("F6").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F6") = Range("F1") Or Range("F6") = Range("F2") Or Range("F6") = Range("F3") Or Range("F6") = Range("F4") Or Range("F6") = Range("F5") Then
GoTo Rand6
End If
End Sub