Excel-Macros Generación d números d manera automática, a partir del ingreso de un numero por teclado

Hola, otra vez, ya envíe la pregunta sin embargo la finalice y no termine con las dudas así que de nuevo la misma.
a continuación se muestra un código que me ayudo de sobremanera, al mismo quisiera saber como añadirle una columna y que esta genere números aleatorios (tanto positivos como negativos). Gracias d antemano
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub
Dim por As Byte, p As Byte, ul As Long
ul = Range("A" & Rows.Count).End(xlUp).Row
Range("A6:A" & ul) = ""
X = 0
i = 5
p = Range("E1").Value
For i = 6 To Range("E1").Value + 5
por= x + 1
Cells(i, 1).Value = x
Next
ul = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:B" & ul) = ""
x = 0
i = 5
p = Range("E1").Value
Randomize
For i = 6 To Range("E1" + Trim(Str(x))).Value = Int((x * Rnd()) + 5)
x = x + 1
Cells(i, 2).Value = por
Next
End Sub
NOTA: dentro el código en los lugares en que dice "por" es "x", no se que pasa o porque n ciertos lugares acepta la equis como letra
ahí esta algo d lo que intente, je je viendo algunos ejemplos ya realizados y demás.