Excelina1234
New Member
- Joined
- Nov 10, 2014
- Messages
- 23
Hi All,
Trying to create a macro whereby i can insert a new row and then fill that exact same row with values. This is what I have so far (fills the row below, not the actual new row).
Any help will be appreciated.
Sub Salesperson_Inputs()
Dim Inputs As Range
Set Inputs = Range("B16:BL16")
Dim Output As Range
Set Output = Range("B25:BL25")
Dim ClearOnceComplete As Range
Set ClearOnceComplete = Range
("B16:F16,J16:L16,P16:T16,X16:Y16,AB16:AG16,AK16:AN16,AQ16:AT16,AX16,BB16:BD16,BH16,BL16,C20")
Output.Select
Selection.EntireRow.Insert
Output.Value = Inputs.Value
ClearOnceComplete.ClearContents
End Sub
Trying to create a macro whereby i can insert a new row and then fill that exact same row with values. This is what I have so far (fills the row below, not the actual new row).
Any help will be appreciated.
Sub Salesperson_Inputs()
Dim Inputs As Range
Set Inputs = Range("B16:BL16")
Dim Output As Range
Set Output = Range("B25:BL25")
Dim ClearOnceComplete As Range
Set ClearOnceComplete = Range
("B16:F16,J16:L16,P16:T16,X16:Y16,AB16:AG16,AK16:AN16,AQ16:AT16,AX16,BB16:BD16,BH16,BL16,C20")
Output.Select
Selection.EntireRow.Insert
Output.Value = Inputs.Value
ClearOnceComplete.ClearContents
End Sub