Hello Expert,
Could you please help me configure this error. The error coming from after the red font when I add that function.
Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, a
Set sh1 = Sheets("Data_Entry")
a = Array(sh1.Range("E19").Value, sh1.Range("E9").Value, sh1.Range("E7").Value, sh1.Range("P17").Value, sh1.Range("S17").Value, sh1.Range("P20").Value, _
sh1.Range("E11").Value, sh1.Range("O7").Value, sh1.Range("E434").Value, Mid(sh1.Range("E434"), 5, 7)), sh1.Range("S444").Value)
With Sheets("ER100_Activation_Configuration").Cells(Rows.Count, 4).End(xlUp).Offset(1)
.Resize(, 15).Value = a
.Offset(, -2).Value = .Row() - 2
.Offset(, -1).Value = Format(Now(), "mm-dd-yy")
End With
End Sub
Thanks in advanced!
Bookmarks