Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Private Sub CommandButton1_Click()
  2. Sheets("Sheet2").Range("A10:F10").Select
  3. ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
  4. End Sub
  5.  
  6. Private Sub CommandButton2_Click()
  7. Sheets("Sheet2").Range("A26:F26").Select
  8. ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
  9. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement