Private Sub Label2_Click()
ActiveCell.Offset(0, 1).Select
With ActiveCell
.Copy
.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = 0
End Sub
Private Sub Label3_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub
Private Sub Label4_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub
Private Sub Label5_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub
Private Sub Label6_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
ActiveCell.Offset(1, -5).Select
End Sub