I am new to VBA and have been trying to figure out how to get a current sheet to copy and paste to a different sheet in the next empty cell. Here is what I have so far. It works nicely except that it copies over the existing data.
Sub ChooseBlankCells()
Dim MyName As String
MyName = Worksheets("Main").Range("E4").Value
If Worksheets("Main").Range("E4").Value = 1 Then
Range("E6").Copy Worksheets("Week1").Range("B5")
Range("E8").Copy Worksheets("Week1").Range("C5")
Range("I6").Copy Worksheets("Week1").Range("D5")
Range("M6").Copy Worksheets("Week1").Range("E5")
End If
End Sub
Sub ChooseBlankCells()
Dim MyName As String
MyName = Worksheets("Main").Range("E4").Value
If Worksheets("Main").Range("E4").Value = 1 Then
Range("E6").Copy Worksheets("Week1").Range("B5")
Range("E8").Copy Worksheets("Week1").Range("C5")
Range("I6").Copy Worksheets("Week1").Range("D5")
Range("M6").Copy Worksheets("Week1").Range("E5")
End If
End Sub