Using VBA how can I set the limit to carriage return and start a new line when the string exceeds the page setup?

[Cmack]

I am using this code to pull data from sheet3("G5"), when it inserts it goes beyond the page limits, any ideas on how to auto include starting a new line for the data?
If InStr(TextBox2.Value, " 5 ") Then
Dim lastRow As Long
lastRow = wsGroup.Cells(wsGroup.Rows.Count, "K").End(xlUp).Row + 1
wsGroup.Range("K" & lastRow + 1).Value = wsSheet3.Range("G5").Value
end if
I would upload a screen shot, but this seems beyond my current capabilities on this site
Any help or feedback appreciated,
Cheers,
Cmack

 

[LazyBug]

To be able to guess where the error occurred, we need to see all the code and know which module it is in.
As for the insertion of a picture:

 

[Cmack]

as you can see the data from ("G5") spills over onto Q and R, no error is thrown, I just want a carriage return to be enforced onto a new line when the limit on "P" is reached
The same code is reused for 6, then 7 then 8 if the values are in textbox2. Thanks for your response though!! -and thanks for showing me how to post a pic LOL!!
Cheers,
Cmack