asked on

Excel VBA Help... Find first empty row of table and paste. It should increase table size of course.

VBA Find first empty row in table
I can find first empty row in sheet////
Sheets("Sheet2").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

My table to paste the data is on "sheet2" >>> Table4
Table header row is row 1 first column is A

Jan Karel Pieterse

    With Worksheets("Sheet2").ListObjects("Table4").ListRows.Add
        'Now copy the source as the above resets the clipboard
        .Range.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                 :=False, Transpose:=False
    End With

Open in new window

chris pike

ASKER

Sub senddataNew()
    
    With Worksheets("Sheet2").ListObjects("Table4").ListRows.Add
    
    ' copy
     Sheets("supplies").Select
    Range("C:C,D:D").Select
    Selection.EntireColumn.Hidden = False
    Selection.EntireColumn.Hidden = True
    Range("Table1").Select
    Selection.Copy
    
    'Now copy the source as the above resets the clipboard
        
    .Range.Cells(1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End With

      
    'Date last colum
    Range("L7").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("L7").Select
    Selection.NumberFormat = "[$-en-US]d-mmm-yyyy;@"
    Columns("L:L").EntireColumn.AutoFit
    Range("L7").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.FillDown
        
   ' column alignment center
   
   Columns("A:H").EntireColumn.AutoFit
   
   
   'format date
   Columns("G:G").Select
   Range("G82").Activate
   Selection.NumberFormat = "[$-en-US]d-mmm-yyyy;@"
            
    Sheets("supplies").Select

Open in new window

ASKER CERTIFIED SOLUTION

Jan Karel Pieterse

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

chris pike

ASKER

Thank you Jan Karel Peiterse