Excel Forum

Code: Select all

Option Explicit

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B2").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Sub adddata()
If Range("B4").Value = "" Then
MsgBox "Get Number", vbCritical + vbOKOnly, "Notify"
Exit Sub
End If

Dim r As Long
r = getLastRow(Sheet1, "E") + 1
Range("E" & r).Value = Range("B4").Value
Range("F" & r).Value = Range("C4").Value
End Sub

Function getLastRow(ByVal ws As Worksheet, ByVal col As String) As Long
    getLastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
    
End Function

Code: Select all

r = getLastRow(Sheet2, "E") + 1