Can someone help me with with the code for loops in the following flow diagram and data in attached file from Row Number 4 to last non blank row.
VBA Macro for Copy_formula_from_rowNumber3_paste_up_to_last_row is as follows:
VBA Macro for Copy_formula_from_rowNumber3_paste_up_to_last_row is as follows:
Code:
Sub Copy_formula_from_rowNumber3_paste_up_to_last_row()
'
' Copy_formula_from_rowNumber3_paste_up_to_last_row Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Range("D3:J3").Select
Selection.Copy
Range("D4:J190").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-189
Range("M3").Select
Application.CutCopyMode = False
Selection.Copy
Range("M3:M190").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
Range("A1").Select
Application.CutCopyMode = False
End Sub