Thread: [Solved] Copy row and change details
View Single Post
 
Old 10-02-2019, 08:58 AM
Logit Logit is offline Windows 10 Office 2007
Expert
 
Join Date: Jan 2017
Posts: 529
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

.
See if this edit does what you are wanting :

Code:
Sub BankCharges()
'
' BankCharges Macro
' Inserts Bank Charges Script (JNW1)
'
' Keyboard Shortcut: Ctrl+Shift+B
'
'Rows("13:13").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Rows("14:14").Select
Selection.Font.Bold = False
Range("H14").Select
ActiveCell.FormulaR1C1 = "8920"
Range("I14").Select
ActiveCell.FormulaR1C1 = "8920"
Range("K14").Select
ActiveCell.FormulaR1C1 = "NL"
Range("O14").Select
ActiveCell.FormulaR1C1 = "=0-R[-1]C"
Range("O15").Select
End Sub
Reply With Quote