You mean this?
Private Sub InsertBlankCell_Click()
Dim R, C As Integer
R = 1
C = 1
If Sheet1.Range("Material").Cells(R, C) > "" Then
Do Until Sheet1.Range("Material").Cells(R, C) = ""
R = R + 1
Loop
End If
Sheet1.Range("Material").Cells(R, C + 0) = Sheet1.Range("Material").Cells(R - 1, C + 0)
Sheet1.Range("Material").Cells(R, C + 1) = Sheet1.Range("Material").Cells(R - 1, C + 1)
'Sheet1.Range("Material").Cells(R, C + 2) = Sheet1.Range("Material").Cells(R - 1, C + 2) '<<< Just Change this to "Planning" (with quotation mark)
Sheet1.Range("Material").Cells(R, C + 2) = "Planning"
Sheet1.Range("Material").Cells(R, C + 3) = Sheet1.Range("Material").Cells(R - 1, C + 3)
End Sub
Regards,
Ferry Mulyadi
Bookmarks