delete the last cell data of each row of multiple sheet

Sub ClearLastCell()
Dim xWs As Worksheet
Dim LRow As Long, r As Long, LCell As Long
Dim cVal As String
Application.ScreenUpdating = False
cVal = ""
For Each xWs In ThisWorkbook.Sheets
    If xWs.Name <> "Sheet1" Then
        LRow = xWs.UsedRange.Rows.Count
        For r = 1 To LRow
            LCell = xWs.Cells(r, Columns.Count).End(xlToLeft).Column
            xWs.Cells(r, LCell).Value = cVal
        Next r
    End If
Next xWs
Application.ScreenUpdating = True
End Sub

Select allOpen in new window

Option Explicit


Sub DeleteLastCll()
    Dim oWs As Worksheet
    Dim lRw As Long
    Dim iX As Integer

    For Each oWs In ThisWorkbook.Worksheets
        If oWs.Name <> "Sheet1" Then
            For iX = 1 To oWs.Range("A1").CurrentRegion.Rows.Count
                oWs.Cells(iX, oWs.Columns.Count).End(xlToLeft).Delete
            Next iX
        End If
    Next oWs
End Sub

Select allOpen in new window