jessbrasing
New Member
- Joined
- Mar 11, 2021
- Messages
- 2
- Office Version
- 2019
- Platform
- Windows
I've searched through the existing threads and haven't found what I need exactly - hope this isn't a repeat.
Need to add a simple second and third copy and paste special section to my current macro (below) if possible. Second copy/paste special- From range A6:I35 on worksheet "Tool" to the next available blank row (column A) in a worksheet named "Claims Data". Third copy/paste special- From range K6:R10 on worksheet "Tool" to the next available blank row (column A) in a worksheet named "Recommendations". Am I able to combine those steps with my current macro rather than running three separate? I don't want any of the original lines cleared and no formulas or formatting carried over. Thanks in advance!
Sub CopyValOnB()
Dim Rng As Range
With Sheets("Personal Worklist")
Set Rng = .Columns(2).Find(Sheets("Tool").Range("B2").Value, .Range("B1"), xlFormulas, xlWhole, xlByRows, xlNext, True, False)
End With
If Not Rng Is Nothing Then
Rng.Offset(, -1).Resize(, 34).Value = Sheets("Tool").Range("A2:AH2").Value
Else
MsgBox "Nothing found"
End If
End Sub
Need to add a simple second and third copy and paste special section to my current macro (below) if possible. Second copy/paste special- From range A6:I35 on worksheet "Tool" to the next available blank row (column A) in a worksheet named "Claims Data". Third copy/paste special- From range K6:R10 on worksheet "Tool" to the next available blank row (column A) in a worksheet named "Recommendations". Am I able to combine those steps with my current macro rather than running three separate? I don't want any of the original lines cleared and no formulas or formatting carried over. Thanks in advance!
Sub CopyValOnB()
Dim Rng As Range
With Sheets("Personal Worklist")
Set Rng = .Columns(2).Find(Sheets("Tool").Range("B2").Value, .Range("B1"), xlFormulas, xlWhole, xlByRows, xlNext, True, False)
End With
If Not Rng Is Nothing Then
Rng.Offset(, -1).Resize(, 34).Value = Sheets("Tool").Range("A2:AH2").Value
Else
MsgBox "Nothing found"
End If
End Sub