Copying a row based on a integer in a cell

[Sheepy]

I am needing help making a macro that will allow me to do a number of things, that may or may not be able to be done with one single macro. ( hopefully 1 macro)
1: I need to be able to copy a row X amount of times based on a number in a cell. ( Column 7), But when it copies based on that value i need column 4 to say Pieces. When i copy the row based on the cell value in column 10, i need column 4 to say Skids for each copied row.
2: When copying the row i need the copied rows to ignore column 8 entirely or when the column is copied with the row it has a value of 0.
*I will be needing to do this action for various amounts of rows depending on the day, it wont be the same every time. *

I had found this VBA code, it is what i'm looking for when needing a row copied but I need to to be more specific with the above alterations.

Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub