Good Morning,
I seem to be having an issue getting the following to post. Everything runs fine until it gets to the Selection.Paste (Highlighted in blue)
I've tried variations and the only time it will paste is if I add Selection.Cut but I need to leave the original data in place on the Issues Log Tab.
Thanks
Sub Post_B()
Sheets("Issue Log").Select
Dim LastRow As Long, MyCell As Range
For Each MyCell In Range("S4:S" & [S5000].End(xlUp).Row)
Columns("S:S").Select
Selection.Find(What:="B", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -18).Select
ActiveCell.Select
ActiveCell.Resize(, 19).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut (If added it will paste)
Sheets("Both").Select
ActiveSheet.Select
Range("A4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Issue Log").Select
Next MyCell
End Sub
I seem to be having an issue getting the following to post. Everything runs fine until it gets to the Selection.Paste (Highlighted in blue)
I've tried variations and the only time it will paste is if I add Selection.Cut but I need to leave the original data in place on the Issues Log Tab.
Thanks
Sub Post_B()
Sheets("Issue Log").Select
Dim LastRow As Long, MyCell As Range
For Each MyCell In Range("S4:S" & [S5000].End(xlUp).Row)
Columns("S:S").Select
Selection.Find(What:="B", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -18).Select
ActiveCell.Select
ActiveCell.Resize(, 19).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut (If added it will paste)
Sheets("Both").Select
ActiveSheet.Select
Range("A4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Issue Log").Select
Next MyCell
End Sub