Rubber Beaked Woodpecker
Board Regular
- Joined
- Aug 30, 2015
- Messages
- 203
- Office Version
- 2021
The following Macro works very well
However after it has executed I would also like the following code to run.
I've tried several ways but cannot get this work.
Any ideas please?
VBA Code:
Sub logBalance()
Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long
Set source = Sheets("Sheet1")
Set destination = Sheets("Sheet1")
source.Range("o5:o16").Copy
emptyColumn = destination.Cells(5, destination.Columns.Count).End(xlToLeft).Column
If IsEmpty(destination.Range("X5")) Then
destination.Cells(1, 1).PasteSpecial Transpose:=True
Else
emptyColumn = emptyColumn + 1
destination.Cells(5, emptyColumn).PasteSpecial Transpose:=False
Application.CutCopyMode = False
End If
End Sub
However after it has executed I would also like the following code to run.
I've tried several ways but cannot get this work.
Any ideas please?
Code:
Range("S1").Select
Selection.Copy
Range("T1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False